Access怎么写查询语句显示在DataGrid中

Question

ACCESS 问题在：家庭收入（编号，收入说明 ,收入金额 ,年, 月, 日 ,收入者）
这个表中（已经有了）。
查询编号（如1~100）如果我想查询 （20~30）
最后显示在：控件 DataGrid 所在的表格中。
我已经有一些语句：
Private Sub Command1_Click()
If Text1.Text = "" Or Text2.Text = "" Then
    MsgBox "请写编号", vbOKOnly + vbExclamation, ""
    Else
       If Not IsNumeric(Text1.Text) Or Not IsNumeric(Text2.Text) Then
       Text1.Text = ""
       Text2.Text = ""
       Else
sql = "select 家庭收入.编号, 家庭收入.收入说明 ,家庭收入.收入金额 ,家庭收入.年, 家庭收入.月, 家庭收入.日 ,家庭收入.收入者 from 家庭收入 where 编号 in (select 编号 from 家庭收入 where 编号 >" + Text1.Text + " and 编号 <" + Text2.Text + ")"
re.Open sql, cn, adOpenDynamic, adLockOptimistic关键我是想显示在：控件 DataGrid 所在的表格中。
请问还怎么写或者怎么设置？
我显示不出来，而且出错，主要是数据库错误。
请问到底怎么连接？ 

Answer 1

'使用ADO连接Access
ConnectionString="PROVIDER=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:System database=SYSTEM.MDW;Data Source=DBName.mdb"
cn.Open ConnectionString
re.Open sql, cn, adOpenDynamic, adLockOptimistic

Answer 2

DataGrid.DataSource=adodc1
你没有把 datagrid和ADO绑定

Answer 3

1、用ADO控件连接。
2、用代码连接
     Set cn= New Connection
    cn.CursorLocation = adUseClient
    cn.Provider = "Microsoft.Jet.OLEDB.4.0"
    cn.Properties("Data Source") = App.Path + "SYSTEM.mdb"（连接你到的数据库）
    cn.Open  re.Open sql, cn, adOpenDynamic, adLockOptimistic  最后用Datagrid.Datasource=re

Answer 4

SQL语句是不是有点问题：
sql = "select 家庭收入.编号, 家庭收入.收入说明 ,家庭收入.收入金额 ,家庭收入.年, 家庭收入.月, 家庭收入.日 ,家庭收入.收入者 from 家庭收入 where 编号 in (select 编号 from 家庭收入 where 编号 > '" & Text1.Text & "' and 编号 < '" & Text2.Text & "')"
re.Open sql, cn, adOpenDynamic, adLockOptimistic