用ADO
Open pathname For mode [Access access] [lock] As [#]filenumber [Len=reclength]上面这句就可以了