真乱来
Dim db As ADODB.Connection
Set db = New Connection
db.CursorLocation = adUseClient
db.Open "PROVIDER=MSDASQL;dsn=xxx;uid=sa;pwd=123456;database=master;"
Dim rs As ADODB.Recordset
Set rs = New Recordset
rs.Open "select * from student", db, adOpenStatic, adLockOptimistic