dsTabelle = "Adressen"
          Datei = App.Path & "\Database.mdb"
 
          Set db = New ADODB.Connection
          strdb = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" _
                  & Datei & ";"
 
          db.Open strdb
 
          Set rst = New ADODB.Recordset
          rst.CursorType = adOpenDynamic
          rst.LockType = adLockOptimistic
          rst.Open dsTabelle, db
 
 
 
          With rst
            .AddNew
             If Len(xpText42.Text) > 0 Then
               !Ort = xpText42.Text
               xpText42.Text = ""
            Else
               !Ort = Null
            End If