用ADO打开数据库的例子:
Dim conn As New Connection
Dim rs As New Recordset
dim dbconcstring$
'第一种,用户名验证的方式
dbconcstring= "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=用户名;Password=密码;Initial Catalog=;Data Source=服务器名;Initial Catalog=数据库名"
Case "DataConc2"
'第二种,用Nt难的方式
dbconcstring = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=;Data Source=服务器名;Initial Catalog=数据库名"