' --- Commands, damit der SQLCommandBuilder richtig arbeitet
        Dim cmdGetKunden As New Data.SqlClient.SqlCommand("GetKunden", conn)
        cmdGetKunden.CommandType = CommandType.StoredProcedure
 
        ' --- DataAdapter erstellen
        Dim daKunden As New Data.SqlClient.SqlDataAdapter(cmdGetKunden)
 
        ' --- 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