Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
cn.Open "Provider=SQLOLEDB.1;Persist Security Info=False;password=Password;User ID=UserId;Data Source=ServerName"
cn.Execute "use 你的数据库"
cn.Execute "SET NOCOUNT ON"
cn.Execute "select * from 表"
cn.Execute "其他的sql语句"
cn.Execute "SET NOCOUNT OFF"