各位大侠帮忙我看看这段ＶＢ报表程序

  Set cn = New ADODB.Connection
        cn.Open "uid=sa;pwd=lizhijun2341483;server=192.168.1.253;" & "driver={SQL Server};" & "database=cszx"
     sql = "select   *  from   lxsj   where  wtbh = '" & Trim(Text1.text) & "'"
    　 Adodc.RecordSource = sql
　　　Adodc.Refresh
　　　Set DataReport02lx.DataSource = Adodc
  　　　DataReport02lx.Sections("Section4").Controls("text1").DataField = wtbh
    　   DataReport02lx.Sections("Section4").Controls("text2").DataField = bgbh
    　  DataReport02lx.Sections("Section4").Controls("text3").DataField = wtdw
        DataReport02lx.Sections("Section4").Controls("text3").DataField = dysj
　　　　DataReport02lx.Show
     提示＂从当前数据资源中获取行值失败＂

补充：VB ,  多媒体