Private Sub form_load()
Dim db As Database
Dim dbfile As String
dbfile = App.Path + "\adress.mdb"
 
 
 
If Dir("adress.mdb") = "" Then
        'falls nicht, neu erzeugen
        Set db = Workspaces(0).CreateDatabase(dbfile, dbLangGeneral, dbEncrypt _
          + dbVersion30)
    Dim tabelle As New TableDef
 
    tabelle.Name = "Adressen"
Dim feld As New Field
 
feld.Name = "Adr Nr"
feld.Type = dbLong
feld.Size = 20
tabelle.Fields.Append feld
Set feld = Nothing
 
 
feld.Name = "Name"
feld.Type = dbText
feld.Size = 50
feld.AllowZeroLength = True
tabelle.Fields.Append feld
Set feld = Nothing
 
 
 
feld.Name = "Strasse"
feld.Type = dbText
feld.Size = 35
feld.AllowZeroLength = True
tabelle.Fields.Append feld
Set feld = Nothing
 
 
 
 
feld.Name = "PLZ"
feld.Type = dbText
feld.Size = 8
feld.AllowZeroLength = True
tabelle.Fields.Append feld
Set feld = Nothing
    Else
        'ansonsten öffnen
        Set db = OpenDatabase("adress.mdb")
 
 
 
 
db.Close
Set tabelle = Nothing
Set db = Nothing
    End If
 
 
 
End Sub
 
Private Sub newdata()
Set db = OpenDatabase("adress.mdb")
Dim rst As Recordset
Set rst = db.OpenRecordset("Adressen", dbOpenDynaset)
rst.AddNew
With rst
 
!Name = Text1.Text
!Strasse = Text2.Text
!PLZ = Text3.Text
.Update
db.Close
Set db = Nothing
Set rst = Nothing
 
End With
End Sub

Private Sub Command1_Click()
rst.MoveNext
Text1.Text = rst.Fields("Name")
 Text2.Text = rst.Fields("Strasse")
 Text3.Text = rst.Fields("PLZ")
End Sub
 
Private Sub Command2_Click()
rst.MovePrevious
 
Text1.Text = rst.Fields("Name")
 Text2.Text = rst.Fields("Strasse")
 Text3.Text = rst.Fields("PLZ")
End Sub
 
Private Sub form_load()
Dim db As Database
Dim rst As Recordset
Set db = OpenDatabase("Adress.mdb")
Set rst = db.OpenRecordset("Adressen", dbOpenDynaset)
rst.MoveFirst
 
Text1.Text = rst.Fields("Name")
 Text2.Text = rst.Fields("Strasse")
 Text3.Text = rst.Fields("PLZ")
 
 
 
 
 
 
End Sub