vb中如何设置adodc 的datasource为变量？

1、使用 Set 语句设置 DataSource，如下所示：
Set Text1.DataSource = ADODC1

2、当报错时显示，将输入的值设置为adodc的source
On Error GoTo prcERR: '捕捉错误，在函数或子程序开头
'代码
'……
Exit Sub
prcERR:
'错误处理，在函数结尾处
Text1.Text = Adodc1.RecordSource
Debug.Print Err.Number, Err.Description

用datagrid 连接access数据库时
Dim strs as string
Dim cn As New ADODB.Connection
If cn.State = 1 Then cn.Close
strs = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\text1.text" '数据库名
cn.Open strs
Adodc1.ConnectionString = strs
Adodc1.CommandType = adCmdUnknown
Adodc1.RecordSource = "select * from xx '数据库表名
Adodc1.Refresh

Set DataGrid1.DataSource = Adodc1 ' 数据来源