Dim SQL As String
SQL = "SELECT * FROM Projekte where ID > 0"
 
Set DB = New ADODB.Connection
DB.CursorLocation = adUseClient
DB.Provider = "Microsoft.Jet.OLEDB.4.0"
DB.Open App.Path & "\epea.mdb"
 
Set rs = New ADODB.Recordset
rs.Open SQL, DB, adOpenDynamic, adLockBatchOptimistic

With rs
   .AddNew
   .Fields(1).Value = Text1.Text
   .Fields(2).Value = Text2.Text
   ...
   .Update
End With