Dim cn(20)
Dim rs
Dim n
For n = 0 To 20
Set rs = CreateObject("ADODB.Recordset")
Set cn(n) = CreateObject("ADODB.Connection")
cn(n).Open "DRIVER={SQL Server};SERVER=SQLSERVER;DATABASE=Pubs;UID=sa"
rs.Open "select * from authors", cn(n)
rs.Close
Set rs = Nothing
cn(n).Close
Set cn(n) = Nothing
Next
|