[Vb 6] errore su apertura recordset

[iscka]

Ho questo codice:

Dim db As Database
Dim Wkspc As Workspace
Dim strPass As String
Dim DBname As String
Dim rst As Recordset
DBname = App.Path & "\data\pippo.mdb"
strPass = ";pwd=password"
Set Wkspc = Workspaces(0)
Set db = Wkspc.OpenDatabase(DBname, False, False, strPass)
Set rst = db.OpenRecordset("SELECT * FROM tabella") <<<<----------- errore

Tipo non corrispondente!
Non riesco a capire il perchè....

Grazie raga!

[cla80]

Dim db As DAO.Database
Dim Wkspc As DAO.Workspace
Dim strPass As String
Dim DBname, SQL As String
Dim rst As DAO.Recordset
DBname = App.Path & "\data\pippo.mdb"
strPass = ";pwd=password"
Set Wkspc = Workspaces(0)
Set db = Wkspc.OpenDatabase(DBname, False, False, strPass)
SQL = "SELECT * FROM Tabella"
Set rst = db.OpenRecordset(SQL)