Beste,

wil in mijn project de dao code veranderen naar ado.
De volgende syntaxis zoek ik te veranderen:

Dim db As Database
Set db = CurrentDb()

Set rs = db.OpenRecordset("query1",dbOpenSnapshot)

het zou me verder op weg helpen,

M.