Fill text box after selecting value in combobox

[PaulMijnster]

Hi,
Beginning to learn Visual Basic 10.
Experienced user of VB 6 it now is time to learn the modern approach...

Case:
Table 'Customer' in SQL Server, Fields are 'Name' and 'Adress'

VB Program starts and loads all Customer Names in combo box and all details in a DataGrid.
This is already working.

Then I want to display the Adress when selecting a Name in the combo box.

And this I can't get to work.

Coding (The part that is working):

Public Class Form1
    Private SQLCon As New SqlConnection("Data Source=zzz;Initial Catalog=yyy;Integrated Security=SSPI")
    Private da1 As New SqlDataAdapter("SELECT * FROM Customers", SQLCon)
    Private ds As New DataSet
    Private cmb As New SqlCommandBuilder(da1)

    Private MySQL_Cmd As New SqlCommand
    Private sSQLQuery As String
    Private MySQL_DA As New SqlDataAdapter
    Private My_DS As New DataSet

Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
   Try

   da1.Fill(ds, "Customers")
   DataGrid.DataSource = ds.Tables("Customers")


   sSQLQuery = "SELECT DISTINCT C_Name FROM Customers"
   MySQL_Cmd = New SqlCommand(sSQLQuery, SQLCon)
   MySQL_DA = New SqlDataAdapter(MySQL_Cmd)
   MySQL_DA.Fill(My_DS, "Tab1")

   Cbx_Name.Items.Clear()
   Cbx_Name.DisplayMember = "C_Name"
   Cbx_Name.ValueMember = "C_Name"
   Cbx_Name.DataSource = My_DS.Tables(0)
   Cbx_Name.SelectedIndex = 0

   Catch ex As Exception
            MessageBox.Show(ex.Message)
   End Try
End Sub

'+++++++++++++++
THE PART THAT DOES NOT WORK
'+++++++++++++++++++++++++++
    
Private Sub Cbx_Name_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles Cbx_Name.SelectedIndexChanged

Try
  sSQLQuery = "SELECT * FROM Customers WHERE C_Name = '" & Cbx_Name.SelectedValue & "'"

  MySQL_Cmd = New SqlCommand(sSQLQuery, SQLCon)
  MySQL_DA = New SqlDataAdapter(MySQL_Cmd)
  MySQL_DA.Fill(My_DS, "Tab2")


  Dim dr As DataRow = My_DS.Tables(1).Rows(0)

  Text_Adress.Text = dr("C_Adress").ToString

  Catch ex As Exception
        MessageBox.Show(ex.Message)
  End Try

End Sub
End Class