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
 
    Private conn As New OleDbConnection()
 
    Private Sub frmMemos_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        Dim dr As OleDb.OleDbDataReader
        Dim cmd As New OleDbCommand()
 
        conn = New OleDbConnection(connStr)
        sqlStr = "select UserID, Memo from Memos where UserID=" & _
          libDaten.GetBenutzerID()
 
        conn.Open()
        cmd = New OleDbCommand(sqlStr, conn)
 
        dr = cmd.ExecuteReader()
 
        If dr.FieldCount = 2 Then
            Do While dr.Read()
                'Werte(eintragen)
                If System.Convert.IsDBNull(dr("Memo")) Then
                    txtMemo.Text = ""
                Else
                    txtMemo.Text = dr("Memo")
                End If
            Loop
 
            dr.Close()
            conn.Close()
 
            dr = Nothing
            conn = Nothing
        End If
 
 
 
 
    End Sub
 
    Private Sub btSpeichern_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles btSpeichern.Click
        Dim cmd As New OleDbCommand()
        conn = New OleDbConnection(connStr)
 
        conn.Open()
        cmd = New OleDbCommand("Update Memos set Memo='" & txtMemo.Text & "'" & _
          "where UserID=" & libDaten.GetBenutzerID(), conn)
        cmd.ExecuteNonQuery()
        conn.Close()
 
        conn = Nothing
        cmd = Nothing
 
 
    End Sub
End Class