请高手帮忙看下这段有什么问题

ZZBZZBZZZB

Private Sub 总账科目_AfterUpdate()
Dim cnnmx As ADODB.Connection
Dim rsmx As ADODB.Recordset
Dim mxkm As String, i As Integer, mysql As String
Dim tyu产 As string
tyu产 = 总账科目.Value
    Set rsmx = New ADODB.Recordset
   mysql = "select 明细科目 from 明细科目表   where  总帐科目 = tyu产  order by 科目编码 ASC"
    rsmx.Open mysql, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
            rsmx.MoveFirst
        For i = 1 To rsmx.RecordCount
        
                  mxkm = rsmx.Fields(0)
        
     
           明细科目.AddItem mxkm
   
           rsmx.MoveNext
        Next i
rsmx.Close

提示错误:至少一参数没指定值


Private Sub 总账科目_AfterUpdate()
Dim cnnmx As ADODB.Connection
Dim rsmx As ADODB.Recordset
Dim mxkm As String, i As Integer, mysql As String
Dim tyu产 As Variant
tyu产 = 总账科目.Value
    Set rsmx = New ADODB.Recordset
    mysql = "select 明细科目 from 明细科目表   order by 科目编码 ASC"
    rsmx.Open mysql, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
            rsmx.MoveFirst
        For i = 1 To rsmx.RecordCount
        
                  mxkm = rsmx.Fields(0)
        
     
           明细科目.AddItem mxkm
   
           rsmx.MoveNext
        Next i
rsmx.Close

这一段却是好的,通过.  "总帐科目"是组合框,文本形

怎样做这个查询????

ZZBZZBZZZB

Private Sub 总账科目_AfterUpdate()
Dim cnnmx As ADODB.Connection
Dim rsmx As ADODB.Recordset
Dim mxkm As String, i As Integer, mysql As String
Dim tyu产 As String
tyu产 = 总账科目.Value
    Set rsmx = New ADODB.Recordset
    mysql = "select 明细科目 from 明细科目表   where  总帐科目 = " & tyu产
    rsmx.Open mysql, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
            rsmx.MoveFirst
        For i = 1 To rsmx.RecordCount
        
                  mxkm = rsmx.Fields(0)
        
     
           明细科目.AddItem mxkm
   
           rsmx.MoveNext
        Next i
rsmx.Close


这样子还是没好,有什么问题????求高手!!!!!!!

ZZBZZBZZZB

上传的这个"财会管理系统"是可用的,结合使用EXCEL VBA , ACCESS VBA 工程密码公开,有安装说明,

ZZBZZBZZZB

3# ZZBZZBZZZB

koutx

mysql = "select 明细科目 from 明细科目表   where  总帐科目 = tyu产  order by 科目编码 ASC"
应改为:
mysql = "select 明细科目 from 明细科目表   where  总帐科目 = '" & tyu产 & "' order by 科目编码"
注:排序默认升序，ASC就不用了。建议找有关SQL编程语言的书看一下。