如何從資料庫傳值給textbox

在小舗看到有人在問這個問題

因為VB我只會直接從資料庫讀取資料回傳給textbox(從屬性選那個)
所以不會在程式碼開啟資料庫再回傳給textbox
我想在textbox輸入正確的值之後，再去從資料庫回傳資料給其他textbox
資料庫名稱是:medicine 因為看了其他人的,發現資料庫寫法太多導致有點混淆 
資料庫名稱大概像
http://imageshack.us/photo/my-images/221/20003534.png/
想把藥品裡面三個資料 回傳給textbox 做這樣動作而已


-------------------------------程式碼-------------------------------

Imports System.Data.SqlClient

Public Class Form1

    '設表單上有TextBox1 藥品編號,TextBox2 藥品名稱
    '當 TextBox1 藥品編號的文字改變 ，就帶出對應 藥品名稱 到 TextBox2
    '所以在 TextBox1.TextChanged 事件中寫查詢程式
    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged

        '連線設定與開啟
        Dim ConStr As String = "Server=伺服器名稱;database=資料庫名稱;User Id=帳戶名稱;Password=密碼;"
        Dim Conn As SqlConnection = New SqlConnection(ConStr)
        Conn.Open()

        '使用 sql 語法查詢並將結果指定給資料庫連接，並預計要用來填入 DataSet
        Dim SqlStr As String = "Select 欄位 from 表格 where 查詢欄位 = '" & TextBox1.Text & "'"
        Dim DA As SqlDataAdapter = New SqlDataAdapter(SqlStr, Conn)
        Dim DS As DataSet = New DataSet
        DA.Fill(DS, "TBname")

        '如果撈出的筆數只有一筆，則帶到 TextBox2 顯示
        If DS.Tables("TBname").Rows.Count = 1 Then TextBox2.Text = DS.Tables("TBname").Rows(0).Item("欄位")

        '連線結束
        Conn.Close()
    End Sub
End Class