DAO type Mismatch

[tripico]

I have this in a module annd I keep getting a Type mismatch error on "set db = CurrentDB"

Would anyone know why?

Sub GetAllUM()
Dim db As DAO.Database
Dim rs As DAO.Recordset

set db = CurrentDB
Set rs = CurrentDb.OpenRecordset(strsql)
.
.
.
end sub

 

[boblarson]

Why are you even bothering with using db because you aren't opening your recordset with it?