dim db As ADODB.Connection
Set db = New ADODB.Connection
db.ConnectionString = "driver={SQL Server};server=(local)或写服务器名;database=databasesname;Persist Security Info=False;user id=sa;"
db.Open
Set db = New ADODB.Connection
db.ConnectionString = "driver={SQL Server};server=(local)或写服务器名;database=databasesname;Persist Security Info=False;user id=sa;"
db.Open
试一下。
l