Dim sss As Integer
sss = adobm.Recordset.Fields(0).Value
adobz.RecordSource = "select * from bztab where bzcode like 'sss__' "

解决方案 »

  1.   

    adobz.RecordSource = "select * from bztab where bzcode like '"&sss&"_'"
      

  2.   

    Dim sss As Integer
    sss = adobm.Recordset.Fields(0).Value
    adobz.RecordSource = "select * from bztab where bzcode like '" & sss & "__' "
      

  3.   

    Dim sss As Integer
    sss = adobm.Recordset.Fields(0).Value
    adobz.RecordSource = "select * from bztab where bzcode like '" & sss & "'% "
      

  4.   

    "select * from bztab where bzcode like '" & sss & "%' "