Dim sqlStr As String = "select ID,PersonalNr,UPPER(" & _
  "Nachname),Vorname,Kurzzeichen from tblPersonal"
Dim ds_adp_SQLDbDA As New System.Data.SqlClient.SqlDataAdapter( _
sqlStr,Me.DbInterface1.OpenDBConnection())
ds_adp_SQLDbDA.Fill(Me.DS_Anmeldung1, "tblPersonal")