Hej
Får svara så här,det funkar inte för mig när jag
trycker svara Får Time Out ?? hur som helst frågan
>Från Frans Hur checkar jag om filen är en mdb fil.

Så här skulle jag lösa det
Private Sub Command1_Click()
Dim tmpStr As String * 16
Dim FileNum As Long
FileNum = FreeFile
Open "Sökväg till den fil du vill undersöka" _
For Binary As FileNum
Get #FileNum, 5, tmpStr
Close #FileNum
Label1 = tmpStr
End Sub

När jag kör detta får jag "Standard Jet DB"
Du får kanske något annat för Access 2000
Tillverka en Function enl denna princip
och jämför svaren med det du vill ha.

mvh
Sven

jag prövade ditt exempel och det funkade perfekt. Jag prövade mot en Access 2000 databas och jag fick samma svar som du. Jag prövade både mot en databas som hade blivit skapad av Access2000 och Jet4.0 kontrollen(om det nu spelar någon roll).

mvh Frans