大家看看我这段代码那里错了?? 老提示要求对象
Dim AddUser As New ADODB.Recordset
Dim SqlStr As String
Dim DBstr As String
'Dim UsrID As String
Dim Spuser As String '商品名称
Dim Spcb As Integer '商品成本
Dim Spjg As Integer '出售价格
Dim Spdw As String '单位
Dim Spsl As Integer '数量
Dim Hj As Integer '合计
Dim Gmrq As Date '购买日期
Dim Dfkm As String '对方科目
Dim Tel As String '电话
Dim Jz As Boolean '结帐
Dim Xxdz As String ' 详细地址
Dim Jhqd As String ' 进货渠道
Dim Hk As Boolean ' 还款
Dim Bz As String '备注

'===============
'将文本框中的数据赋值给变量
'===============

Spuser = Combo1.Text
Spdw = Combo2.Text
Spcb = Val(Text1)
Spsl = Val(Combo3.Text)
Spjg = Val(Text2)
Hj = Val(Combo4.Text)
Gmrq = DTPicker1

If Combo5.Text = "是" Then
Jz = True
Else
Jz = False
End If

Dfkm = Combo6.Text
Tel = Text4
Jhqd = Combo7

If Combo8.Text = "是" Then
Hk = True
Else
Hk = False
End If

Xxdz = Text5
Bz = Text6
'===============
'将文本框中的数据赋值给变量
'===============


SqlStr = "INSERT INTO Info" & _
"(商品名称,进货成本,出售价格,单位,数量,合计,购买日期,对方科目,电话,结帐,详细地址,进货渠道,还款,备注,) " & _
"VALUES ('" & Spuser & "'" & _
"," & Spcb & _
"," & Spjg & _
",'" & Spdw & "'" & _
"," & Spsl & _
"," & Hj & _
",#" & Gmrq & "#" & _
",'" & Dfkm & "'" & _
",'" & Tel & "'" & _
"," & Jz & _
",'" & Xxdz & "'" & _
",'" & Jhqd & "'" & _
"," & Hk & _
",'" & Bz & "'):"
Text3.Text = SqlStr
DBcnn.Execute SqlStr

MsgBox "添加成功", 64, "提示"
' If Cmdedit.Visible = True Then Cmdedit.Visible = False


End Sub


[解决办法]
楼主你的代码中看不到DBcnn被初始化的代码,有一行相似的代码,但已被你注释掉了:

VB code

'Dim DBcnn As New ADODB.Recordset