也可以用ADO来实现
dim G_DBConn as ADODB.Connection
dim ProviderStr as string
Set G_DBConn = New ADODB.Connection
ProviderStr = "Provider=SQLOLEDB.1;Password=密码;Persist Security Info=True;"&
ProviderStr =ProviderStr &" UserID=用户;Initial Catalog=数据库名称;Data Source=数据库服务器"
G_DBConn.Open G_DBConn.Open ProviderStr