При выборе значения в ComboBox автозаполняются TextBox значениями из таблицы

Imports System.Data.SqlClient
 
Private Sub btnSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSave.Click
cnnMSSQL()
Dim qty as string
Dim cmdText as String="SELECT ID,qtyStore FROM [Склад] WHERE ID = '" & cmbIdWar.SelectedValue.ToString & "'"
Dim cmdSelect As SqlCommand = New SqlCommand(cmdText ,cnnDB )
Dim rd As SqlDataReader = cmdSelect.ExecuteReader()
    If rd.HasRows Then
            While rd.Read()
                 qty = rd(1)
           End While
    End If
        rd.Close()
    If CDec(qty) < CDec(txtQtyOrder.Text) Then
             MsgBox("Заказываемое количество превышает наличие")
             Exit Sub
    ELse 
        Dim newQty as Decimal =Dec(qty) - Dec(txtQtyOrder.Text) 
        Dim updStr as String = "Update [Склад] SET qtyStore = '" & newQty & "` WHERE  [Склад].ID= '" & mbIdWar.SelectedValue.ToString & "'"
        Dim cmdUpd As SqlCommand = New SqlCommand(updStr,cnnDB )
        cmdUpd.ExecuteNonQuery()
     End If
 End Sub    
 
 Public Sub cnnMSSQL()
        Dim strcnnMsSQL = New SqlClient.SqlConnectionStringBuilder
                strcnnMsSQL.DataSource = "название вашего сервера"
                strcnnMsSQL.InitialCatalog = "jekis1"
                strcnnMsSQL.UserID = "логин подключения к серверу MS SQL"
                strcnnMsSQL.Password = "пароль подключения к серверу MS SQL"
        cnnDB = New SqlClient.SqlConnection(strcnnMsSQL.ConnectionString)
        cnnDB .Open()
    End Sub

 
Public Sub cnnMSSQL()
        Dim strcnnMsSQL = "Data Source=название вашего сервера MS SQL;Initial Catalog=jekis1;Integrated Security=True"            
        cnnDB = New SqlClient.SqlConnection(strcnnMsSQL.ConnectionString)
        cnnDB .Open()
    End Sub

Dim strcnnMsSQL as String= "Data Source=название вашего сервера MS SQL;Initial Catalog=jekis1;Integrated Security=True"

Public Sub cnnMSSQL()
        Dim strcnnMsSQL = "Data Source=название вашего сервера MS SQL;Initial Catalog=jekis1;Integrated Security=True"            
         Dim cnnDB as New SqlClient.SqlConnection(strcnnMsSQL.ConnectionString)
        cnnDB .Open()
    End Sub

Dim cnnDB as New SqlClient.SqlConnection(strcnnMsSQL.ConnectionString)

Dim cnnDB as New SqlClient.SqlConnection(strcnnMsSQL)

Dim rd As SqlDataReader = cmdSelect.ExecuteReader()