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