app.path

db.Open "PROVIDER=Microsoft.Jet.OLEDB.3.51;Data Source=" & app.path & "dvd.mdb;"

eller måske
db.Open "PROVIDER=Microsoft.Jet.OLEDB.3.51;Data Source=" & app.path & "\dvd.mdb;"

db.Open "PROVIDER=Microsoft.Jet.OLEDB.3.51;Data Source=" & app.path & "\dvd.mdb;"
hvis den ligger i samme  mappe som programmet

//Blueice

You could also use a function such as this
Public Function AppPath() As String
   
    Dim sAns As String
    sAns = App.Path
    If Right(App.Path, 1) <> "\" Then sAns = sAns & "\"
    AppPath = sAns

End Function


then use
db.Open "PROVIDER=Microsoft.Jet.OLEDB.3.51;Data Source=" & appPath() & "dvd.mdb;"

Det var squ bare super det der terry... det virker som det skal så her er der nogle point...

tak og god weekend