Sperando che tu sia un pò esperto ti mando un esempio abbastanza semplice.
IMPORTANTE: il tuo database deve risiedere nella stessa cartella di lavoro.

codice:
Dim mydata As Database
Dim myrecord As Recordset

Private Sub cmdsalva_Click()
    Set mydata = OpenDatabase(App.Path + "\" + "Tuodatabase.mdb")
    Set myrecord = mydata.OpenRecordset("tuatabella")
    With myrecord
        .AddNew
        !Campo1 = Trim(txt1.Text)
        !Campo2 = Trim(txt2.Text)
        !Campo3 = Trim(txt3.Text)
        !Campo4 = Trim(txt4.Text)
        !Campo5 = Trim(txt5.Text)
        !Campo6 = Trim(txt6.Text)
          .Update
    End With
   End Sub
Un pò grezzo ma per cominciare và bene
Quello scritto sopra funziona ovviamente con un database access
Ti consiglio di usare il motore di ricerca del forum.