このコードで "オブジェクト変数またはブロック変数が設定されていません"を修正するにはどうすればよいですか？

Question

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click 
    conn.Open() 
    cmd.Connection = conn 
    cmd.CommandText = "Select RoomName from Room_Details" 
    dr = cmd.ExecuteReader 
    While dr.Read 
     ComboBox3.Items.Add(ComboBox2.SelectedItem(dr("RoomName"))) 
     ComboBox2.Items.Remove(ComboBox2.SelectedItem(dr("RoomName"))) 
    End While 
    conn.Close() 
End Sub 

私はこのコードを試してみたが、それは次のようなエラーがスローされます。

Object variable or with block variable not set

この問題を解決するために私のコードを改善するためにどのように？

Answer 1

いくつかの可能性：

• 私はどこでもconnの宣言が表示されていない、あなたはそれがインスタンス化されていますよろしいですか？
• 同上cmb - どこでもインスタンス化が表示されません。それが完了していることを確認してください。
• ComboBox2.SelectedItem(dr("RoomName"))の使用が正しいかどうかわかりません。多分試してみてくださいComboBox2.FindStringExact(dr("RoomName"))