求助怎么用vb编一个查询子系统

下给出一段数据连接代码,可对Adodc1的RecordSource属性语句按SQL方式改动组成新查询语句:
Private Sub Form_Load()
Text1 = ""
With Adodc1
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\db1.mdb;Persist Security Info=False"
Adodc1.RecordSource = "select name from b1 order by name"
Adodc1.Refresh
DataGrid1.Refresh
End With
End Sub

建议到网上下一个 有源码的回来分析

先学好vb 从网上下一段源码回来 好好分析一下