hjælp til print i visual basic

Hej jeg skal printe en lønseddel og samtidig gemme nogle ting i min database ud fra om de eksistere i forvejen. min kode ser ud som følgende.

Private Sub cmdprint_Click()
 
    Dim Dato1 As String
 
    ViewPro1.PrintDialog = 1
    ViewPro1.PrintPages 1, ViewPro1.TotalPages
   
    Dato1 = Adodc4.Recordset!Datofra
   
    If txtStartdato = Dato1 And Indkørte <= 0 Then
    'MsgBox "den valgte månede og førernr eksistere allerede.", vbExclamation + vbOKOnly, "Fejl"
    Else
    Adodc4.Recordset.AddNew
    Adodc4.Recordset!Datofra = txtStartdato
    Adodc4.Recordset!Datotil = txtSlutdato
    '(Date)
    Adodc4.Recordset!Førernr = Førernr
    Adodc4.Recordset!Løn = Beløb6
    Adodc4.Recordset!Pensionchauffør = Beløb9
    Adodc4.Recordset!Pensionvognmand = Beløb38
    Adodc4.Recordset!AMBA = Beløb15
    Adodc4.Recordset!Skat = Beløb19
    Adodc4.Recordset!Feriepenge = Beløb24
    Adodc4.Recordset!PensionchaufførFerie = Beløb26
    Adodc4.Recordset!PensionvognmandFerie = Beløb41
    Adodc4.Recordset!AMBAFerie = Beløb28
    Adodc4.Recordset!SkatFerie = Beløb35
    Adodc4.Recordset!Feriekonto = Beløb36
    Adodc4.Recordset!ATP = Beløb10
    Adodc4.Recordset.Update
    End If

End Sub

Det den så skal er at den skal kigge i databasen og se om den valgte dato og det valgte førernr er i databasen under samme linie og er datoen og førernr det skal den kun printe lønseddlen og ikke gemme nogle data.