'***Connect to ODBC DSN
Dim cnn As New ADODB.Connect
Dim cnnStr As String
cnnStr = "User ID=" & userIDS & ";Password=" & pwdS & ";Data Source=" & dsnS
cnn.Open cnnStr
'***Connect to Microsoft Access File
Dim cnn As New ADODB.Connect
Dim cnnStr As String
cnnStr="DRIVER=Microsoft Access Driver (*.mdb);DBQ=" & "数据文件路经..."
cnn.Open cnnStr