' --- Verbindung
        Dim conn As New Data.SqlClient.SqlConnection(Connstr)
 
        Dim daKunden As New Data.SqlClient.SqlDataAdapter("GetKunden", conn)
        ' --- Command Builder anlegen
        Dim cbKunden As New Data.SqlClient.SqlCommandBuilder(daKunden)
        Try
            conn.Open()
 
            daKunden.Update(dsKunde.Tables("Kunden"))
        Catch ex As Exception
            Rückgabe = False
        Finally
            If conn.State = ConnectionState.Open Then
                conn.Close()
            End If
        End Try

        Dim cbKunden As New Data.SqlClient.SqlCommandBuilder(daKunden)

	select [ID], [Name], [Kürzel], [Telefon1], [Telefon2], [Fax], [Email], _
  [DebitorenNummer],[BankID]
	from [dbo].[Kunden]