help: compile error

hi,

i have face compile error in the coding at below. anyone can help me plz?
all the variables are text. The error is "user-defined type not defined" (red)

Function verify_user2(vuser, vpwd, vlevel1, vlevel2, vlevel3, vlevel4) As Boolean

Dim rs_user As Recordset
Dim DB As Database
Dim vsql As String
Set DB = CurrentDb
DoCmd.SetWarnings False

vsql = "select * from [tblName] where [ID] ='" & vuser & "' and [key] ='" & _
vpwd & "' and ([Level] ='" & vlevel1 & "' or [Level]='" & _
vlevel2 & "' or [Level]='" & vlevel3 & "' or [Level]='" & vlevel4 & "')"
Set rs_user = DB.OpenRecordset(vsql)

......
.....

End Function

thanks..

try ... as DAO.Database

it is still the same..
whenever i type :
Dim db AS Database or Dim db AS DAO.Database or Dim rec AS RecordSet
the error : "user-defined type not defined" will pop up...

what step did i missed out? do i need to open any server or what ever other applications?