Dim db1 As Database Dim db2 As Database Dim db3 As Database Dim rst As Recordset Dim rst1 As Recordset '打开表Personal Dim rst2 As Recordset '打开表BookFlag Dim rst3 As Recordset '打开表Book Dim ws1 As Workspace Dim ws2 As Workspace Dim qry2 As QueryDef Dim RecNumBookFf As Integer '表BookFf的记录个数 Dim SFlag As