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