for example:(only VB)
Public dbs As String
Public Function connection() As String
If dbs <> "" Then
connection = "Provider=SQLOLEDB.1;Password=Password;Persist Security Info=True;User ID=UserName;Initial Catalog=" & dbs & ";Data Source=(local)"
End If
End Function
......