Pastetool #60

Public Function ConnectAccess(DatabaseFilename As String, DatabasePassword As String) As ADODB.Connection
    Dim c As Collection
    Set c = New Collection
    c.Add Provider=Microsoft.Jet.OLEDB.4.0;
    c.Add Persist Security Info=False;

    c.Add Data Source= & DatabaseFilename & ;
    c.Add Jet OLEDBDatabase Password= & DatabasePassword & ;

    Dim ConnectionString As String
    ConnectionString = JoinCollection(c)

    Set ConnectAccess = New ADODB.Connection

    On Error Resume Next
    ConnectAccess.Open ConnectionString
End Function

Public Function JoinCollection(col As Collection, Optional Limiter As String) As String
    Dim i As Long
    For i = 1 To col.count
        JoinCollection = JoinCollection & col(i) & Limiter
    Next i
    
    If JoinCollection <> "" Then
        JoinCollection = Left$(JoinCollection, Len(JoinCollection) - Len(Limiter))
    End If
End Function