Sub Main Dim Hnd%, rec&, Result% Hnd% = FOpen("C:\MYDBASE.DAT", 0, 4) 'read-only, shared Result% = WhichError() If Result% > 0 Then Debug.print "File could not be opened, error code: " & Result% Else Debug.Print FLof(Hnd%) FClose Hnd% End If End Sub