Private Sub Form_Load()
 
    Dim SQL As String
 
    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
 
    SQL = "SELECT * FROM Projekte"
 
    rs.Open SQL, DB, adOpenDynamic, adLockOptimistic
 
    Set MSHFlexGrid1.DataSource = rs
    MSHFlexGrid1.SelectionMode = flexSelectionByRow
 
    rs.Close
    Set rs = Nothing
    DB.Close
    Set DB = Nothing
 
End Sub
 
Private Sub Command1_Click()
 
    Dim SQL As String
    SQL = "SELECT * FROM Projekte"
 
    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
 
    While (Not rs.EOF = True)
        rs.MoveNext
    Wend
 
    With rs
        .AddNew
        .Fields(1).Value = Text1.Text
        .Fields(2).Value = Text2.Text
        .Update
    End With
 
    rs.Close
    Set rs = Nothing
    DB.Close
    Set DB = Nothing
 
End Sub