ADODB: Connection buildup

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