vb系统运行出现错误：列名false无效

Private Sub Form_Load()
On Error GoTo l
    frmcount.Top = 0
    frmcount.Left = 0
    Adodc1.ConnectionString = "Provider=SQLOLEDB.1 ;Persist Security Info=False;User ID=sa;Initial Catalog=JxcDb;Data Source=(local)"
    dtpend.Value = Format(Date, "  # yy-mm-dd  # ")
    Call Qery
    RsFilter.Open strSQL, cn, adOpenKeyset, adLockBatchOptimistic
    Set dtgrd.DataSource = RsFilter
    Exit Sub
l: MsgBox err.Description
End Sub
--------------------编程问答-------------------- 没有看到你的SQL语句，如果字段是false是话需要加上方括号[false],因为false是系统关键字

补充：VB ,  数据库(包含打印，安装，报表)