Run Time Error 3251

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

Code:

---

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

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]