Public conn() As New ADODB.Connection Public Sub ConnectDatabase1(ByVal SERVER As String) Dim i As Integer For i = 1 To 10 conn(i).CursorLocation = adUseServer conn(i).ConnectionTimeout = 50 conn(i).CommandTimeout = 0 conn(i).ConnectionString = "Provider=SQLOLEDB;Integrated Security=SSPI;Persist Security Info=False;Data Source=" & SERVER Next i End Sub
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)