代码提示出错，是哪里的问题？

陈航　发表于：2019-02-24 15:32:29 　

我根据其他老师的学习视频，写了一段代码，是ADO格式的代码，但是数据提交会出错，请老师看看是哪里书写错误了？

Option Compare Database

Private Sub Command6_Click()
Dim rst As ADODB.Recordset
Dim strSQL As String

If IsNull(Me.主体) Then
MsgBox "请输入员工姓名", vbInformation, "提示"
Exit Sub
End If

strSQL = "select*from 员工信息"

Set rst = New ADODB.Recordset
rst.cursorlocation = aduseclient
res.Open strSQL, CurrentProject.Connection, 2, 3 '系统现在这行出错，无法执行
rst.AddNew

rst!员工姓名 = Me.员工姓名
rst!员工性别 = Me.员工性别
rst.Update
rst.Close
Set rst = Nothing
Forms(员工信息).frmchild.Requery
Me.员工姓名 = Null
Me.员工性别 = Null
End Sub

leoyoung 发表于：2019-02-24 15:52:15

会不会是sql语句书写不规范呢？

strSQL = "select * from 员工信息"

伊西军发表于：2019-02-24 16:30:36

错误提示是什么呢？

陈航发表于：2019-02-24 16:45:38

提示对象错误，我把附件放上去。

伊西军发表于：2019-02-25 08:18:14

rst.Open strSQL, CurrentProject.Connection, 2, 3 '系统现在这行出错，无法执行

总记录：4篇页次：1/1 9 1 :

Access交流中心