报表动态编程问题

有一下access报表编程

Private Sub Report_Open(Cancel As Integer)

  Dim sBc As String

  Dim rs As New ADODB.Recordset
  sBc = "select * from 预审单表  WHERE 预审单表.批次码='" & bScs & "'"
  rs.Open sBc, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
  rs.Movefirst

  Reports!预审单!Text3 = rs("批次码")

end sub

 运行后提示“运行时错误‘2448’您不能将数值指定给这个对象“不知如何解决，望各位大侠给个答复。谢谢！！