sammenligne 2 databaser

Private Sub Update_database_Click()
   
  If Inet1.StillExecuting Then
MsgBox ("Im still updating, Please wait I cannot do more than one thing at a time!")
Exit Sub
Else
 
  MsgBox ("Updating Database. Please wait until the next message pops-up!")
    DoCmd.Hourglass True
'Opretter forbindelse til FTP server
    Inet1.Protocol = icFTP
    Inet1.URL = "ftp://ftp.min.server.com"
    Inet1.UserName = "ftp"
    Inet1.Password = "user@anon.the.net"
    Inet1.RequestTimeout = 400

                'Sletter gammel fil
                Set fs = CreateObject("Scripting.FileSystemObject")
                If (fs.FileExists("C:\dir\Database\Main_comp.mdb")) Then
                fs.DeleteFile "C:\dir\Database\Main_comp.mdb"
                End If
           
                Inet1.Execute , "GET \database\main_data.mdb C:\dir\Database\Main_comp.mdb"

            Do While Inet1.StillExecuting
                DoEvents
            Loop
'Oprydning
    Inet1.Execute , "CLOSE"

    Dim rs1 As DAO.Recordset
    Dim rs2 As DAO.Recordset
    Dim db As Database
    Dim db1 As Database
    Set db = OpenDatabase("c:\dir\database\main_data.mdb")
    Set db1 = OpenDatabase("c:\dir\database\main_comp.mdb")
    Set rs1 = db.OpenRecordset("Select * From Files ORDER BY deletenr ASC", dbOpenSnapshot)
    Set rs2 = db1.OpenRecordset("Select * From Files ORDER BY deletenr ASC", dbOpenSnapshot)


rs1count = rs1.RecordCount
rs2count = rs2.RecordCount
rs1.MoveFirst
rs2.MoveFirst

!!!!!!!her kan jeg ikke finde ud af hvad der skal stå!!!!!!!

  DoCmd.Hourglass False
  MsgBox ("Update Completed")

End If
End Sub

Hej venner.

Jeg har dette problem at jeg skal hente en database ned fra en ftp. Virker fint nok. Skal så sammenligne den database som ligger på computeren med den jeg henter ned fra ftp'en. Tabellen der skal sammenlignes hedder Files.
Det er VBA jeg skriver i, og access er access 2000.
Andet info i mangler?