Creating a Connection String

[manofsteel00]

I was wondering if I could create a connection string with a function, so that I can call the function once, instead of creating connections within each function. Can anyone let me know if this is possible?

Private Function connectToDB(database as String) as ADODB.Connection
     Dim connection as ADODB.connection     
     Set connection = New ADODB.connection
     connection.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
               "Data Source=" & database 
     connection.Open
     connectToDB = connection
End Function