Sub Main Dim Hnd%, rec& Hnd% = FOpen(“C:\MYDBASE.DAT”, 0, 4) 'read-only, shared Debug.Print FLof(Hnd%) FClose Hnd%End Sub