遍历Table
Public Function getReader(ByVal StrSql As String) As String
Dim StrReader As String
Dim R As DataRow
'建立数据连接，传递查询参数
OleDbConnection2.ConnectionString = strconnection
OleDbDataAdapter2.SelectCommand.Connection = OleDbConnection2
OleDbDataAdapter2.SelectCommand.CommandText = StrSql
OleDbConnection2.Open()
'返回查询的数据集
OleDbDataAdapter2.Fill(DataSet2)
'按要求遍历Table（第2、3列中的数据）,生成字符串
For Each R In DataSet2.Tables(0).Rows
StrReader = StrReader & Trim(R(2)) & "(" & R(3) & ") "
Next
'返回字符串，关闭数据连接
Return StrReader
OleDbConnection2.Close()
End Function
