Spelen met Database

[buick]

Hoi

Ik ben al een tijdje aan het proberen op een simpele manier (via SQL query) een access database te benaderen. Heb al verschillende boeken maar kom er niet uit.

Ik heb de volgende testcode gemaakt :

Dim USERDB As Database
Dim rs As Recordset
Dim SQL As String
Dim result As String
Dim DBLocation As String

SQL = "SELECT * from tblUSERS"


DBLocation = "F:\db\USERDB.mdb"
Set USERDB = OpenDatabase(DBLocation)

Set rs = USERDB.OpenRecordset("Select * from tblUSERS")

Het is dan mijn bedoeling dat rs het resultaat bevat (in dit geval zijn er nog maar 2 records aangemaakt)

Alleen blijf ik een "Type Mismatch Error" in de laatste regel krijgen als ik deze code uitvoer

Ik heb de volgende dingen ook al geprobeerd :

Set rs = USERDB.OpenRecordset(SQL,dbOpenDynaset)

en ook

Set rs = USERDB.OpenRecordset(SQL)

Maar allemaal geven ze een error

In mijn boek kom ik niets tegen waarmee ik kan vinden waar de fout zit.
Heeft iemand een idee?

Alvast bedankt/