老是实时错误3705 对象打开时不允许操作

Question

代码如下(不要说关闭数据环境设计器这个我懂.可不代码我不懂应该如何加 )Dim conn As New ADODB.Connection
 Dim rs As New ADODB.RecordsetPrivate Sub Command1_Click() If Text1.Text = "" Then
    MsgBox "用户名不能为空！", vbCritical
    Text1.SetFocus
 ElseIf Text2.Text = "" Then
    MsgBox "请输入密码！", vbCritical
    Text2.SetFocus
 ElseIf Text2.Text <> Text3.Text Then
    MsgBox "校验密码不正确！", vbCritical
    Text3.SetFocus
 Else
    With rs
         .Close
         .Open "insert into sys(姓名,密码) values('" + Text1.Text + "','" + Text3.Text + "')", conn, 3, 3
         .Open "select * from sys", conn, 3, 3
    End With
    Text1.Text = ""
    Text2.Text = ""
    Text3.Text = ""
     MsgBox "以成功添加新用户", vbCritical
  
  End If End If
 
 End If
 
End Sub
Private Sub Command2_Click()
 Unload Me
End SubPrivate Sub Form_Load() conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source='" + App.Path + "\data.mdb" + "'"
 rs.Open "select * from sys", conn, adOpenKeyset, adLockPessimistic
 Text1.Text = ""
 Text2.Text = ""
 Text3.Text = ""End Sub

Answer 1

你是要在数据库中添加一个用户名和密码的登录信息吧Dim conn As New ADODB.Connection
Dim rs As New ADODB.RecordsetPrivate Sub Command1_Click()
 If Text1.Text = "" Then
    MsgBox "用户名不能为空！", vbCritical
    Text1.SetFocus
    Exit Sub
 End If If Text2.Text = "" Then
    MsgBox "请输入密码！", vbCritical
    Text2.SetFocus
    Exit Sub
 End If If Text2.Text <> Text3.Text Then
    MsgBox "校验密码不正确！", vbCritical
    Text3.SetFocus
    Exit Sub
 End If conn.Execute "insert into sys(姓名,密码) values('" + Text1.Text + "','" + Text3.Text + "')" Text1.Text = ""
 Text2.Text = ""
 Text3.Text = ""
 MsgBox "以成功添加新用户", ,"提示"
End Sub
Private Sub Command2_Click()
 conn.close
 set conn=noghing
 Unload Me
End Sub
Private Sub Form_Load()
 conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source='" + App.Path + "\data.mdb" + "'"
 Text1.Text = ""
 Text2.Text = ""
 Text3.Text = ""
End Sub

Answer 2

我调试过了,没有问题
Data Source='" + App.Path + "\data.mdb" + "'
这句话,你改成绝对路径试一下,比如你把data.mdb放在D盘下边
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=D:\data.mdb"

Answer 3

set conn=noghing是这句话出错了,

Answer 4

With rs
         .Close
         conn.Execute "insert into sys(姓名,密码) values('" + Text1.Text + "','" + Text3.Text + "')"
         .Open "select * from sys", conn, 3, 3
    End With

Answer 5

该是这样吧…… - -bset conn=Nothing

Answer 6

.........他不会新手到连我打错一个字也找不了来吧在工程里引用Microsoft ActiveX Data Objects 2.0 Library