Error 3061 - To Few Parameters

[mharroff]

HELP!

Whenever I try to run the code below I keep getting Error 3061 - To Few Parameters when it gets to the set rst line.

I have checked the Access Help and it appears that it should work.

  Dim strSQL As String
  Dim db As Database
  Dim rst As Recordset
  
  Set db = CurrentDb
  strSQL = "SELECT SumProd FROM qsumCScrap WHERE ProdDept = 'S'"
  Set rst = db.OpenRecordset(strSQL)

TIA

 

[jhall156]

The other parameters are supposed to be optional. If you include the type argument does it work? JHall

 

[mharroff]

I had tried that and it still didn't work.

 

[jhall156]

Put a semicolon at the end of your sqlstring
JHall

 

[jhall156]

No that probably won't fix it. I don't know, it works okay on my end. JHall

 

[jhall156]

What version of DAO are you using?
You might try dimensioning your objects in the general declarations section as DAO.Database and DAO.Recordset respectively. JHall