Conn.Open "driver={SQL Server};server=localhost;uid=sa;pwd=;database=zou"
上面这个就是连接,假设你要查询zou表中的记录只要这样就可以
Dim rs As New ADODB.Recordset
rs.Open "select * from zou", Conn, 1, 1
....
rs.close