Dim sql As String = "SELECT * From Mit_Berech Where MIT_ID = " & _
  api.GUID_String(Mitarbeiter_ID)
            sqlcn = New System.Data.SqlClient.SqlConnection( _
            dal.GetConnectString(, True))
            da = New System.Data.SqlClient.SqlDataAdapter(sql, sqlcn)
 
            Dim cmd As New SqlClient.SqlCommand
            Dim cmdBuilder As SqlClient.SqlCommandBuilder
            cmdBuilder = New SqlClient.SqlCommandBuilder(da)
 
            cmd = dal.GetUpdatecommand(da, "Mit_Berech", "ID", Mitarbeiter_ID)
 
            da.InsertCommand = cmdBuilder.GetInsertCommand()
            da.UpdateCommand = cmdBuilder.GetUpdateCommand()
 
            Try
                da.Update(dtBerechtigungen)
            Catch ex As System.SystemException
                MsgBox(ex.ToString())
            End Try