Type Mismatch Error

[Legion]

Can anyone tell me where the type mismatch error is coming from?

Private Sub Form_Load()
Dim rs As Recordset
Set dbs = CurrentDb
Set rs = dbs.OpenRecordset("SELECT [Survey Number] FROM [Main Table]")
rs.MoveLast
Forms!Form_Main!RecordNumber.Value = rs(0)
rs.Close
Set dbs = Nothing
End Sub

The error is attributed to the following line....
Set rs = dbs.OpenRecordset("SELECT [Survey Number] FROM [Main Table]")

Thanks,
Legion

 

[dsmaj]

I'd be willing to bet it's because you need to explicitly specify what type of db access model you're using. Try using:

dim rs as DAO.recordset

instead of:

dim rs as recordset

Sam.

 

[Legion]

I'd be willing to bet it's because you need to explicitly specify what type of db access model you're using. Try using:

dim rs as DAO.recordset

instead of:

dim rs as recordset

Sam.

Now I get the error User-Defined type not defined in reference to DAO.recordset.

 

[dsmaj]

Now I get the error User-Defined type not defined in reference to DAO.recordset.

Make sure you have a reference set to DAO in your access project.

Sam.

 

[Legion]

Make sure you have a reference set to DAO in your access project.

Sam.

If by that you mean going to tools... reference and selecting DAO, I can't, reference seems to be grayed out.

 

[WayneRyan]

Legion,

Get your code in Design view ... Then Tools --> References

Wayne