Hi there again


I have the following code in my VB6. I try to run the query from the Access97 in VB6....there my code.

Dim dbCurrent As Database
Dim rstcurrent As Recordset
' Open a database
Set dbCurrent = OpenDatabase("C:\dbase\SUPPLIER.mdb")
'open the query or table
Set rstcurrent = dbCurrent.OpenRecordset("SUPPLIER QUERY")

But a Run-Time error '3061' occur say" Too few parmeters, Expected 1"

What setting did I miss?

Please advice
Thank you

Sheley