Run Time Error 3251

[VBonliner]

dim dbsBusiness as database
dim rstCustomers as recordset
dim x as string

set dbsBusiness = opendatabase(Business.mdb)
set rstCustomers.openrecordset("Customers")

x=inputbox("enter id")

rstCustomers.findfirst x 'I am getting run time error
'3251 for this statement

rstCustomers.close
dbsBusiness.close


'Any help is appreciated

[kovan]

dim dbsBusiness as database 
dim rstCustomers as recordset 
dim x as string 

set dbsBusiness = opendatabase("Business.mdb") 
set rstCustomers.openrecordset("Customers") 

x=inputbox("enter id") 

rstCustomers.findfirst x 'I am getting run time error 
'3251 for this statement 

rstCustomers.close 
dbsBusiness.close

you forgot to put " " around business.mdb

dont know if that has anything to do with it....

where is how i would do that code

dim dbsBusiness as database 
dim rstCustomers as recordset 
dim x as string 
dim SQL as string

x=inputbox("enter id") 
set dbsBusiness = opendatabase("Business.mdb") 
SQL = "SELECT * From Customers Where ID = " & x
set rstcumsers = dbsbusiness.openrecordset(sql)
with rstcumsers
    if .eof then
           msgbox "nothing found"
    else
        do something to catch it...
    end if
end with 
rstCustomers.close 
dbsBusiness.close

[Edited by kovan on 09-27-2000 at 08:47 AM]