Dim strAttribs As String
strAttribs = "Description=" & vbCr & _
"OemToAnsi=No" & vbCr & _
"SERVER=test" & vbCr & _
"Database=pubs" & vbCr
rdoEngine.rdoRegisterDataSource "abc", "SQL Server", True, strAttribs
strAttribs = "Description=" & vbCr & _
"OemToAnsi=No" & vbCr & _
"SERVER=test" & vbCr & _
"Database=pubs" & vbCr
rdoEngine.rdoRegisterDataSource "abc", "SQL Server", True, strAttribs
到VB版,去搜索一下,很多的