Ciao a tutti!

Dopo aver creato una Access.Application e dopo aver aperto un database, eseguo una query di inserimento. Il codice della MACRO di EXCEL è il seguente:

codice:
Sub CopiaValori()
Dim strDBName As String
Set appaccess = CreateObject("Access.Application")
strDBName = "C:\Database.mdb"
appaccess.OpenCurrentDatabase strDBName
appaccess.DoCmd.RunSQL ("insert into tab1 (Nome,Cognome) values (""DDD"",""bbb"")")
End Sub
la mia domanda è: come faccio a ricavare dal database il valore dell'ID del record che ho appena inserito e trasferirlo in EXCEL?