怎样动态设置odbc数据源

Option Explicit Dim adoConn As ADODB.Connection Private Function BuildAdoConnection(ByVal ConnectionString As String) As String     ' display the ADO Connection Window (ADO DB Designer)     Dim dlViewConnection As MSDASC.DataLinks     On Error GoTo Err_BuildAdoConnection               If Not (Trim$(ConnectionString) = "") Then         Set adoConn = New ADODB.Connection         adoConn.ConnectionString = ConnectionString         Set dlViewC..................... ...........