一个有关ADO的简单代码,请大家帮我修改一下,谢谢!
Option Explicit
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim sql As String
Private Sub form_Load()
Dim connstr As String
connstr = "provider=microsoft.jet.oledb.4.0;data source=D:\mis\data.mdb"
conn.Open connstr
rs.CursorLocation = adUseClient
sql = "select 工号,姓名,性别,身份证号码,学历,籍贯,单位编号,职别编号,入厂日期 from rszd"
rs.Open sql, conn, adOpenKeyset, adLockPessimistic
Set DataGrid1.DataSource = rs
Private Sub cmdfind_Click()
If txtname.text="" then
Msgbox "请输入所要查询的名字。",16,"提示"
exit sub
else
sql = "select 工号,姓名,性别,身份证号码,学历,籍贯,单位编号,职别编号,入厂日期 from rszd where 姓名='" & txtname.text & "'"
end if
rs.Open sql, conn, adOpenKeyset, adLockPessimistic
Set DataGrid1.DataSource = rs
当我运行后点击cmdfind按钮时,系统提示
----------------------
实时错误'3750':
对象打开时操作不被允许。
----------------------
应当是最后两行有问题,请教如何进行修改呢?