VB.Net - ExecuteReader：CommandTextプロパティが初期化されていません

Question

このトピックに関するいくつかのスレッドがありますが、何らかの理由でそこに記載されているものは何も私のためには機能しませんでした。それは私のコードです：

Dim strAccSQL As String = "SELECT nUserNo FROM dbo.tUser WHERE sUserID='" & AccountID.Text & "';" 
     Dim catCMDAcc As SqlCommand = New SqlCommand(strAccSQL, AccCon) 
     Dim myAccountReader As SqlDataReader = catCMDAcc.ExecuteReader() 
     While myAccountReader.Read 
      AccountNo.Text = myAccountReader(0) 
     End While 
     myAccountReader.Close() 
     Con.Close() 
     Con.Open() 
     Dim strSQL2 As String 
     Dim catCMD As SqlCommand = New SqlCommand(strSQL2, Con) 
     Dim myReader As SqlDataReader = catCMD.ExecuteReader() 
     InfoTextBox.Text &= Environment.NewLine & Now & " Account: " & AccountID.Text & " Found" 
     CharacterName.Properties.Items.Clear() 
     While myReader.Read() 
      CharacterName.Properties.Items.Add(myReader(0)) 
     End While 
     myReader.Close() 
     AccCon.Close() 
     Con.Close() 

誰かが私の問題のアイデアを得ましたか？ ErrorMessageの状態として

Answer 1

、あなたのCommandTextがここに空の文字列（strSQL2）です：あなたは、空のSQL句を実行することはできません

Dim strSQL2 As String 
    Dim catCMD As SqlCommand = New SqlCommand(strSQL2, Con) 
    Dim myReader As SqlDataReader = catCMD.ExecuteReader() 

。