请指教：“最少一个参数没有被指定值” 问题在哪？

funnyexcel

在VB6 中的代码，到最后一句（ADOcn.Execute strSql）提示：最后一个参数没有被指定值。不知道问题在哪，请高手指教

Private Sub Com_Click()

Dim strCldl, strLb, strMc, strXh, strCs, strDw, strLy, strJsr, strBz As String
Dim sngSl, sngDj, sngJe As Single
Dim dRkrq As Date
Dim strSql As String


If CmbCldl.Text = "" Then
        MsgBox "材料大类未填写"
        CmbCldl.SetFocus
        Exit Sub
    Else
        strCldl = Trim(CmbCldl.Text)
End If

If CmbLb.Text = "" Then
        MsgBox "材料小类未填写"
        CmbLb.SetFocus
        Exit Sub
    Else
        strLb = Trim(CmbLb.Text)
End If

If CmbMc.Text = "" Then

        MsgBox "材料名称未填写"
        CmbMc.SetFocus
        Exit Sub
    Else
        strMc = Trim(CmbMc.Text)
End If

strXh = Trim(CmbXh.Text)
strCs = Trim(CmbCs.Text)

If TxtSl.Text = "" Then

        MsgBox "数量未填写"
        sngSl.SetFocus
        Exit Sub
    Else
        sngSl = Val(TxtSl.Text)
        
End If

If CmbDw.Text = "" Then

    MsgBox "单位未填写"
    CmbDw.SetFocus
    Exit Sub
    Else
    strDw = Trim(CmbDw.Text)
        
End If

sngDj = Val(TxtDj.Text)
sngJe = sngSl * sngDj

If CmbLy.Text = "" Then

MsgBox "材料来源未填写"
    CmbLy.SetFocus
    Exit Sub
    Else
    strLy = Trim(CmbLy.Text)
      
End If

If CmbJsr.Text = "" Then
CmbJsr.SetFocus
Exit Sub
Else
strJsr = Trim(CmbJsr.Text)
End If

dRkrq = TxtRq.Text
strBz = Trim(txtBz.Text)

strSql = "insert into rukub(cailfl,  leib,  mingc, xingh, changs, shul,  danw,  danj,  jine,  laiy,  jingsr, rukrq, beiz) " & _
                    "values(strCldl, strLb, strMc, strXh, strCs,  sngSl, strDw, sngDj, sngJe, strLy, strJsr, dRkrq, strBz)"
StrAccess = "Provider = Microsoft.ACE.OLEDB.12.0;Data Source=C:\Documents and Settings\Young\My Documents\gcgl\startimes.accdb;Persist Security Info=False"
      Set ADOcn = New ADODB.Connection     ' 赋值变量为对象引用
      ADOcn.Open StrAccess     '打开连接
ADOcn.Execute strSql
End Sub

Admin

   

很遗憾通知楼上朋友，您的帖子在24小时之内没有任何回复！

通常情况下，本论坛发布的主题帖会在8小时被回复或处理。您的帖子在24小时之内未被回复，其中的原因可能是：

1、问题表述不清、模棱两可，难以理解，帮助者被搞晕了，夺帖而出；
2、没有上传必要的附件，或附件被遗忘在某个角落；
3、发帖提问时，语气带棱角、带挑衅，不幸被列入不受欢迎的帖子；
4、所提问题不成立，或提不合理的要求，乐于助人者使出“走为上”之计；
5、话题较偏、较冷或者发布到了不合适的版块，暂时无人问津，顾影自怜。


为了提高您的问题解决效率，我们推荐您阅读以下文章：
* 如何发表新话题和上传附件：http://club.excelhome.net/thread-45649-1-1.html
* 发帖的技巧：http://club.excelhome.net/thread-176339-1-1.html
* EH技术论坛的最佳学习方法：http://club.excelhome.net/thread-117862-1-1.html