كود فى الاكسيس ما هو المقابل فى الفيجوال

dim db as database,rs as recordset , sql as string

set db = currentdb

sql = "select * from table where....."

set rs = db.openreset (sql)