Dim DB As Database Set DB = OpenDatabase(d:\school\xsmd.mdb) Dim select_db As Recordset Set select_db = DB.OpenRecordset(select * from table1 where number='2001', dbOpenDynaset) If select_db.RecordCount = 1 Then Dim str As String str = select_db.Fields(name) Print str End If 工程中必须添加引用:microsoft DAO 3.6