Public Sub DataToTxtBox()
 
Dim pID As Integer
pID = rID
    sConString = "DSN=pf_data;UID=pf_admin"
    sCommString = "SELECT * FROM Tabelle WHERE Pak_ID='" & pID & "'"
 
    sCon = New Microsoft.Data.Odbc.OdbcConnection(sConString)
    sCommand = New Microsoft.Data.Odbc.OdbcCommand(sCommString, sCon)
 
        sCon.Open()
 
            If sCon.State.Open Then
 
                sReader = sCommand.ExecuteReader()
 
                While sReader.Read()
 
                    sDataString1 = sReader.GetValue(1)
 
                End While
 
            End If
        sCon.Close()
 
                With Me
                    .TextBox1.Clear()
                    . TextBox1.ForeColor = System.Drawing.Color.DarkBlue
                    . TextBox1.Text = sDataString1
                End With
                'MessageBox.Show(sAbsName)
 
End Sub

---------------------------------------------------------------
Mal verliert man, mal gewinnen die anderen