Private Sub 工号_LostFocus() On Error GoTo Err_工号_LostFocus '定义字符型变量 Dim STemp As String '定义用于循环的整型变量 Dim i As Integer '定义数据集变量 Dim Rs As ADODB.Recordset '为定义的数据集变量分配空间 Set Rs = New ADODB.Recordset '为打开数据表“查询语句”字符变量赋值 STemp = "Select * From 职员基本资料" '打开“职员资料”数据表 Rs.Open STemp, CurrentProject.Connection, adOpenKeyset, adLockOptimistic

此段程序在ACCESS2003中运行正常，在ACCESS97中就不正常了。请问我应该怎么修改！谢谢！

定义一下 Connection!