Вместо INSERT хочу использовать Recordset и мне нужно переделать код, если кто сможет помочь, буду благодарен.

INSERT INTO baza (IDpatient, IDtest, cena)
SELECT V.IDpatient, V.IDtest, Str(V.cena) 
FROM tab_q_2 AS V
WHERE Not Exists (SELECT B.IDpatient, B.IDtest, B.cena FROM baza B
             WHERE B.IDpatient= V.IDpatientAND B.IDtest= V.IDtest)

Наброски кода:

Dim rs As DAO.Recordset
Set rs = CurrentDb.OpenRecordset("baza", dbOpenDynaset)

Dim rst As DAO.Recordset
Set rst = CurrentDb.OpenRecordset("tab_q_2", dbOpenDynaset)

rs.AddNew  
    rs("IDpatient") = rst!IDpatient
    rs("IDtest") = rst!IDtest
    rs("cena") = rst!cena
rs.Update

rst.Close
Set rs = Nothing

rs.Close
Set rs = Nothing

http://www.sql.ru/forum/1208773/recordset-dlya-insert