Imports System.Data.OleDb
 
Public Class frmMemos
    Private connStr As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data" & _
      "Source=AlloDB.mdb"
    Private sqlStr As String = "select * from Memos where User_ID=" & _
    libDaten.GetBenutzerID()
 
    Private da As OleDbDataAdapter
    Private ds As DataSet
    Private bs As New BindingSource()
 
 
 
    Private Sub frmMemos_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        Dim conn As New OleDbConnection(connStr)
        Dim SelCmd As New OleDbCommand(sqlStr, conn)
 
        da = New OleDbDataAdapter(SelCmd)
        Dim cb As New OleDbCommandBuilder(da)
 
        ds = New DataSet()
 
        ' DataSet mit Daten füllen
        da.Fill(ds, "Memos")
 
        ' Textfeld an Feld in der Tabelle binden
        bs.DataSource = ds.Tables("Memos")
        tb1.DataBindings.Add("Text", bs, "Memo")
 
 
 
    End Sub
 
    Private Sub btSpeichern_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles btSpeichern.Click
 
        bs.EndEdit()
 
        ' Update durchführen
        da.Update(ds, "Memos")
 
    End Sub
End Class