Visual BasicのコンボボックスにSqlServerより値を取得、表示したい。

Question

前提・実現したいこと

Visual Basic、FormのコンボボックスにSqlServerより値を取得、表示したい。

Visual Basicでシステムを作成しているのですがコンボボックスに上手くデータが表示されません。

発生している問題・エラーメッセージ

エラーメッセージ
'ExecuteReader: Connection プロパティは初期化されていません。'

該当のソースコード

Visual Basic
 Private Sub 0000_Load(sender As Object, e As EventArgs) Handles Me.Load
        Dim cm As SqlClient.SqlCommand
        Dim rs As SqlClient.SqlDataReader

        Dim cn As SqlClient.SqlConnection = New SqlClient.SqlConnection()
        cn.ConnectionString = "Data Source=*"
        cn.Open()

        cm = New SqlClient.SqlCommand("select * from")
        rs = cm.ExecuteReader
        rs.Read()
        If rs.HasRows = True Then
            GMB_Combobox.Items.Add(rs("MKNKBNN").ToString())
            Do While (rs.Read())
                GMB_Combobox.Items.Add(rs("MKNKBNN").ToString())
            Loop
        End If
        rs.Close()
        cm.Connection.Close()
        cn.Close()
End Sub

試したこと

ここに問題に対して試したことを記載してください。

補足情報（FW/ツールのバージョンなど）

VisualStudio2017,Visual Basic,SQLServer

Comments

[退会済みユーザー]

先のスレッド https://teratail.com/questions/264911 とほぼ同じ内容の質問に見えますが、先のスレッドでの回答は役に立たなかったのですか？　先のスレッドは放置状態ですが、ここで回答をもらってまた放置する気ですか？

[退会済みユーザー]

タグが不適切では？　前回のスレッドと同様 VB.NET, SQL Server, Windows Forms にすべきでは？