Private Sub cmdAdd_Click()
    ' Datenbank öffnen
    Set Conn = New ADODB.Connection
    Conn.CursorLocation = adUseClient
    Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
    "Data Source=" & App.Path & "\datenbank.mdb;" & _
    "Persist Security Info=False"
 
    ' SQL Statement zusammenstellen
    strSQL = "INSERT INTO History (SponsorenID, Datum, Text) VALUES ('29'," & _
      "'aaa', 'aaa');"
 
    ' SQL Startement ausführen
    Conn.Execute strSQL 
End Sub