You are using an out of date browser. It may not display this or other websites correctly.
You should upgrade or use an
alternative browser.
-
G
im cn As ADODB.Connection
Dim rs As ADODB.Recordset
Set cn = CreateObject("ADODB.Connection")
Set rs = CreateObject("ADODB.Recordset")
With cn
.ConnectionString = "PROVIDER=SQLOLEDB;" & _
"DATA SOURCE=sever;" & _
"USER ID=sa;" & _
"PASSWORD=dimu;" & _
"INITIAL CATALOG=base"
.Open
End...
