如下,在给报表设置数据源后,如何在报表上动态添加表users的字段
Dim adoRs As ADODB.Recordset

Private Sub Report_Initialize()

dim SQL as string 

SQL = "select *  from users"

Set adoRs = CreateObject("adodb.recordset")

adoRs.Open SQL$, "Provider=MSDASQL.1;Persist Security Info=False;Data Source=test", adOpenKeyset, adLockBatchOptimistic

Database.SetDataSource adoRs

End Sub