Private Sub Form_Load() Dim i As Integer Dim rst As DAO.Recordset Set rst = CurrentDb.OpenRecordset("SELECT * FROM 表1;") '以要链接的表建立记录集 If rst.RecordCount = 0 Then MsgBox "表中无数据！程序终止。": Exit Sub '如果链接表...
