数据查询删除问题！

Question

首先我想你的本意应该是:
If Text1.Text = "" Then
MsgBox "姓名不能为空!", vbOKOnly + vbExclamation, ""
Text1.SetFocus
Text1 = ""
'ADD
 exit sub
End If

Answer 1

rs.CursorLocation = adUseClient//对象打开时，无法操作。

Answer 2

ZOU_SEAFARER(国际海员)说的那个，是我忘了在END IF 前加EXIT SUB

Answer 3

if rs.state=1 then
   rs.close
endif
rs.CursorLocation = adUseClient//对象打开时，无法操作。
這樣就可以了