Заполнение textbox из базы SQL Server

Public Class Form1
 
    Dim conn As SqlConnection
    Dim cmd As String = ""
    Dim sqlCom As SqlCommand
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        conn = New SqlConnection("Data Source = PORTAL; AttachDbFilename = ; Initial Catalog = MR; Integrated Security = False; Persist Security Info = False; User ID = web_; Password = web")
        cmd = "SELECT vcDescription FROM tOrganization"
        conn.Open()
        Dim db As New SqlDataAdapter(cmd, conn)
        Dim ds As New DataSet()
        db.Fill(ds, "tOrganization")
        LstBx_vcDescription.DataSource = ds.Tables("tOrganization")
        LstBx_vcDescription.DisplayMember = "vcDescription"
        conn.Close()
    End Sub
 
    Private Sub LstBx_vcDescription_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LstBx_vcDescription.SelectedIndexChanged
        Dim cmd As String = "SELECT поля для datetimepicker, checkbox, textbox FROM tOrganization WHERE vcDescription = " & LstBx_vcDescription.SelectedItem
        Dim dr As SqlDataReader
        sqlCom = New SqlCommand(cmd, conn)
        conn.Open()
        dr = sqlCom.ExecuteReader
        While dr.Read
            DateTimePicker1.Value = dr(0)
            CheckBox1.CheckState = dr(1)
            TextBox1.Text = dr(2)
        End While
        conn.Close()
    End Sub
 
End Class