新手求救~~~~关于VB中的错误“未找到方法或数据成员~~~~”

Private Sub Command3_Click()
'添加
Dim i As Integer
If Trim(Me.txtJob.Text) <> "" And Trim(Me.dtpInput.Value) <> "" And Trim(Me.txtNo.Text) <> "" Then
    Sql = "select * from 产品 where 产品ID=" & Trim(Me.txtNo.Text)
    Set RS = dbSelect(Sql)
    If Not RS.EOF Then
        Set RS = Nothing
        Sql = "select * from 入库表 where 商品编号=" & Trim(Me.txtNo.Text)
        Sql = Sql & " and 入库时间='" & Trim(Me.dtpInput.Value)
        Sql = Sql & "' and 入库批次=" & Trim(Me.txtJob.Text)
        Set RS = dbSelect(Sql)
        If RS.EOF Then
            Sql = "insert into 入库表 values(" & Trim(Me.txtNo.Text)
            Sql = Sql & ",'" & Trim(Me.dtpInput.Value)
            Sql = Sql & "'," & Trim(Me.txtJob.Text)
            Sql = Sql & "," & Trim(Me.txtSum.Text) & ")"
            dbOperate Sql
        Else
            MsgBox "库中已有！"
        End If
    Else
        i = MsgBox("信息库中无此商品！是否添加？", vbOKCancel + vbExclamation, "提示")
        If i = 1 Then
            frmCheckOther.Show
        End If
   End If
   Set RS = Nothing
Else
    MsgBox "主键不能为空！"
End If
End Sub
End Sub

Private Sub Command4_Click()
'删除
If Trim(Me.txtJob.Text) <> "" And Trim(Me.dtpInput.Value) <> "" And Trim(Me.txtNo.Text) <> "" Then
    Sql = "select * from 入库表 where 商品编号=" & Trim(Me.txtNo.Text)
    Sql = Sql & " and 入库时间='" & Trim(Me.dtpInput.Value)
    Sql = Sql & "' and 入库批次=" & Trim(Me.txtJob.Text)
    Set RS = dbSelect(Sql)
    If Not RS.EOF Then
        Sql = "delete * from 入库表 where 商品编号=" & Trim(Me.txtNo.Text)
        Sql = Sql & " and 入库时间='" & Trim(Me.dtpInput.Value)
        Sql = Sql & "' and 入库批次=" & Trim(Me.txtJob.Text)
        dbOperate Sql
    Else
        MsgBox "信息库中无此商品！"
    End If
Else
    MsgBox "主键不能为空！"
End If

End Sub

Private Sub Command5_Click()
'修改
If Trim(Me.txtJob.Text) <> "" And Trim(Me.dtpInput.Value) <> "" And Trim(Me.txtNo.Text) <> "" Then
    Sql = "select * from 入库表 where 商品编号=" & Trim(Me.txtNo.Text)
    Sql = Sql & " and 入库时间='" & Trim(Me.dtpInput.Value)
    Sql = Sql & "' and 入库批次=" & Trim(Me.txtJob.Text)
    Set RS = dbSelect(Sql)
    If Not RS.EOF Then
        Sql = "update 入库表 set 数量=" & Trim(Me.txtSum.Text)
        Sql = Sql & " where 商品编号=" & Trim(Me.txtNo.Text)
        Sql = Sql & " and 入库时间='" & Trim(Me.dtpInput.Value)
        Sql = Sql & "' and 入库批次=" & Trim(Me.txtJob.Text)
        dbOperate Sql
    Else
        MsgBox "信息库中无此商品！"
    End If
Else
    MsgBox "主键不能为空！"
End If
End Sub




停留在  Dim i As Integer
If Trim(Me.txtJob.Text) <> "" And Trim(Me.dtpInput.Value) <> "" And Trim(Me.txtNo.Text) <> "" Then 
中的  dtpInput上
  求救各位大大，这个是什么意思 怎么解决啊？？
小弟小白一个.................. --------------------编程问答-------------------- 这个俺知道 --------------------编程问答--------------------

引用 1 楼 zx099z 的回复:

这个俺知道

哦~~
  那这是什么问题啊？？？
 应该怎么解决呢？？？？ --------------------编程问答-------------------- 窗体上有 dtpInput 么？ --------------------编程问答-------------------- 去VBGOOD或百度贴吧问问吧
--------------------编程问答-------------------- 控件名或代码中的数据库字段不对

补充：VB ,  基础类