求高手帮,有帐会管理系统供下载

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 提示有错误         明细科目,总帐科目都是文本形的    错在哪里呀

ly

1# ZZBZZBZZZB

请试一试：
mysql = "select 明细科目 from 明细科目表   where  总帐科目 = '" & tyu产
& "'"

ZZBZZBZZZB

谢了

wen123456

学习不学习i