如何用VB做生成表查询???向高人请教

ZZBZZBZZZB

Private Sub Command42_Click()
Dim mxkm As String, i As Integer
Dim tyu产 As String
tyu产 = 总账科目.Value
    Set rsmx = New ADODB.Recordset
    mysql = "select 日期 凭证号 摘要  明细科目  借方金额  贷方金额 from 清单 into ssssss     where  总帐科目 = '" & tyu产 & "'"
   
rsmx.Open mysql, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
End Sub