出现了实时错误3001，该怎么做啊?
Private Sub Command1_Click()（确定按钮）事件代码Dim strSQL As String
'声明一个记录集对象
Dim ADOrs As New ADODB.Recordset
'与ADOcn连接对象关联
ADOrs.ActiveConnection = ADOcn
If Text1.Text = "" Then
MsgBox "未输入学号，请重新输入数据！", vbCritical + vbOKOnly
Exit Sub
End If
If Text2.Text = "" Then
MsgBox "未输入姓名，请重新输入数据！", vbCritical + vbOKOnly
Exit Sub
End If
'首先查询表中是否存在关键字相同的记录
strSQL = "select * from 学生情况表"
strSQL = strSQL & " Where 学号='" + Text1.Text + " '"
strSQL = strSQL & " and 姓名='" + Text2.Text + "'"
ADOrs.Open strSQL
'如果关键字重复,则退出
If Not ADOrs.EOF Then
MsgBox "该记录已经存在,不能继续增加", vbCritical + vbOKOnly
Exit Sub
End If
'拼写Insert插入语句
strSQL = "Insert Into 学生情况表(学号,姓名)"
strSQL = strSQL + " Values('" + Text1.Text + "',"
strSQL = strSQL + "'" + Text2.Text + "'" + ")"
'执行Insert语句
ADOcn.Execute strSQL
MsgBox "已成功添加新记录", vbQuestion + vbOKOnly
End Sub
vb 3001 --------------------编程问答-------------------- ADOcn是什么呢？ --------------------编程问答-------------------- 要先调用
ADOcn.Open 连接字符串
建立连接，才能查询。
--------------------编程问答--------------------
具体该怎么做呢? --------------------编程问答--------------------
具体都写给你了
ADOcn.Open 连接字符串
补充：VB , 控件
