How to fill a combobox in vb.net using database

Dim strConn As String
strConn = "USER='" & TextBox1.Text & "';PASSWORD='" & TextBox2.Text & "';SERVER='" & ComboBox1.SelectedItem.ToString & "';"
Dim MySQL As String = "sp_databases"
Dim MyConn As New SqlClient.SqlConnection(strConn)
Dim ds As DataSet = New DataSet()
Dim Cmd As New SqlClient.SqlDataAdapter(MySQL, MyConn)
Cmd.Fill(ds, "Emptbl")
Dim dt As New DataTable
dt = ds.Tables("Emptbl")
ComboBox2.DataSource = dt
ComboBox2.DisplayMember = dt.Columns(0).ToString
ComboBox2.ValueMember = dt.Columns(0).ToString