Public cn As New ADODB.Connection
Public rs As New ADODB.Recordset
 
Private Sub OpenDB()
  With cn
    .Provider = "Microsoft.Jet.OLEDB.4.0"
    .ConnectionString = App.Path & "\" & "db1.mdb"
    .Open
  End With
End Sub
 
Private Sub Command1_Click()
  Dim x As Integer
  rs.Open "Tabelle1", cn, adOpenKeyset, adLockPessimistic
  rs.MoveLast
  x = rs("Lauf-Nummer")
  LfNr.Text = x + 1
  Text1.Text = ""
  Text2.Text = ""
  Text3.Text = ""
  rs.Close
End Sub
 
Private Sub Command2_Click()
  rs.Open "Tabelle1", cn, adOpenKeyset, adLockPessimistic
  rs.AddNew
  rs("Lauf-Nummer") = LfNr.Text
  rs("Feld1") = Text1.Text
  rs("Feld2") = Text2.Text
  rs("Feld3") = Text3.Text
  rs.Update
  rs.Close
End Sub
 
Private Sub Form_Load()
  OpenDB
End Sub

Man sollte auch aus den Fehlern anderer lernen, denn kein Mensch hat so viel Zeit, sie alle selbst zu machen