Opendatabase -kan ikke finde DB

Jeg vil lave en With - End løkke.
Iflg. Hjælpen kan den se således ud:
Private Sub Kommandoknap18_Click()

    Dim dbsNorthwind As Database
    Dim rstEmployees As Recordset
    dim strfirstname as string
    dim strlastname as string
Set dbsNorthwind = OpenDatabase(\"drdata.mdb\")
Set rstEmployees = dbsNorthwind.OpenRecordset(\"apparat\")

    strFirstName = Trim(InputBox( _
            \"Enter first name:\"))
    strLastName = Trim(InputBox( _
            \"Enter last name:\"))

with rstemployees

.edit
  !Fornavn = strfirstname
  !Efternavn = \"strlastname
end width

-Men den kommer med en fejl allerede i sætningen:

Set dbsNorthwind = OpenDatabase(\"drdata.mdb\")
om at den ikke kan finde Drdata.mdb.

Hvad kan årsagen være (det hjælper ikke at sætte det fulde stinavn foran).

Mvh