提示对象变量或with模块变量未设置

Private Sub Command1_Click()
For i = 0 To 4
If Text1(i).Text = "" Then
MsgBox ("请将数据输入完全！")
Exit For
Else
Set cnn = New ADODB.Connection
cnn.Open strcnn
Adodc1.Recordset.AddNew
    Adodc1.Recordset.Fields("仓库编号") = Text1(0).Text
    Adodc1.Recordset.Fields("仓库名") = Text1(1).Text
    Adodc1.Recordset.Fields("仓库地址") = Text1(2).Text
    Adodc1.Recordset.Fields("主管") = Text1(3).Text
    Adodc1.Recordset.Fields("电话") = Text1(4).Text
    Adodc1.Recordset.Update
    Adodc1.Refresh
End If
Next i
End Sub

Private Sub Command2_Click()
Me.Hide
仓库管理.Show
End Sub 把下面两行去掉
Set cnn = New ADODB.Connection
cnn.Open strcnn
毕业设计吧？ 你Adodc1这个是不是已经绑定数据库了
绑定了的话，
Set cnn = New ADODB.Connection
cnn.Open strcnn
这两句就是多余的 http://download.csdn.net/source/1498324

引用 1 楼 dbcontrols 的回复:

把下面两行去掉
Set cnn = New ADODB.Connection
cnn.Open strcnn
毕业设计吧？

要在乱吠了，狗日的

补充：VB ,  数据库(包含打印，安装，报表)