让用户无限点击VB的命令按钮以执行重复的代码

Question

我用ACCESS数据库做了一个程序。我现在想要让用户不断点击“确定”按钮后，可以不断地输入用户信息，然后把这些信息都保存在表里面。就是输入了多少次，就把多少信息保存在表里面。下面是我写的代码，它只能输入一次信息，我按“确定”之后，程序报错：对象关闭时，不允许操作。各位大侠指点下小弟我啊，谢谢了！（SQL语句是正确的）代码：'************ 无限输入用户IP等信息 ************
Private Sub cmdOk_Click()
Adodc1.CommandType = adCmdText
Adodc1.RecordSource = "insert into UserIp(序号,IP,服务器应用,网卡,线号,交换机,端口) values('" & number & "','" & stIP.Text & "','" & stServerUse.Text & "','" & stNetwordCard.Text & "','" & stLine.Text & "','" & stGuidway.Text & "','" & stPort.Text & "')"
Adodc1.Refresh    
'************ 信息清空，方便下次插入 ***
stIP.Text = ""
stServerUse.Text = ""
stNetwordCard.Text = ""
stLine.Text = ""
stGuidway.Text = ""
stPort.Text = ""
End Sub

Answer 1

Private Sub cmdOk_Click()
Dim sqltext As String
sqltext = "insert into UserIp (序号,IP,服务器应用,网卡,线号,交换机,端口) values('" & number & "','" & stIP.Text & "','" & stServerUse.Text & "','" & stNetwordCard.Text & "','" & stLine.Text & "','" & stGuidway.Text & "','" & stPort.Text & "')"
Dim conn As ADODB.Connection
Set conn = New ADODB.Connection
conn.Open "User"
conn.Execute sqltext
MsgBox ("信息添加成功")
stIP.Text = ""
stServerUse.Text = ""
stNetwordCard.Text = ""
stLine.Text = ""
stGuidway.Text = ""
stPort.Text = ""
End Sub