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