mycmd.Connection = myconnection.open
mycmd.CommandText = "SELECT * From auftraggeber Where Id=" & TextBox13.Text
datapter = New MySqlDataAdapter(mycmd)
dtable.Rows.Clear()
datapter.Fill(dtable)
If Not dtable Is Nothing AndAlso dtable.Rows.Count > 0 Then
GridA.AutoGenerateColumns = False
GridA.DataSource = dtable
GridA.Columns(0).DataPropertyName = "Id"
GridA.Columns(1).DataPropertyName = "Auftraggeber"
GridA.Columns(2).DataPropertyName = "Info1"
GridA.Columns(3).DataPropertyName = "Info2"
GridA.Columns(4).DataPropertyName = "Info3"
GridA.Columns(5).DataPropertyName = "Strasse"
GridA.Columns(6).DataPropertyName = "PLZ"
GridA.Columns(7).DataPropertyName = "Ort"
GridA.Columns(8).DataPropertyName = "Zusatz1"
GridA.Columns(9).DataPropertyName = "Zusatz2"
GridA.Columns(10).DataPropertyName = "Zusatz3"
GridA.Columns(11).DataPropertyName = "Kommentar"
End If
myconnection.close()