Dim conn As New ADODB.Connection
Dim com1 As New ADODB.Command
Dim rs As New ADODB.Recordset

conn.Open "DSN=DSN-Name", user, password
Set com1.ActiveConnection = conn
com1.CommandType = adCmdText
com1.CommandText = "select * from ......"
Set rs = com1.Execute
...... 

你也可以在 VB 中使用 ADODC 控件。