Private Sub btSpeichern_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles btSpeichern.Click
        bs.EndEdit()
 
        If IsNothing(da.UpdateCommand()) Then
            Dim cmd As New OleDbCommand("Update Memos set Memo='" & tb1.Text & _
              "' where UserID =" & libDaten.GetBenutzerID())
            da.UpdateCommand() = cmd
        End If
 
        ' Update durchführen
        da.Update(ds, "Memos")
 
 
    End Sub