Public boss_cn As ADODB.Connection
Public my_cn As ADODB.Connection
Public Function DBConnect() As Boolean
On Error GoTo OpenErr
Dim BOSSDatabase
Dim MYDatabase
Set my_cn = New ADODB.Connection
MYDatabase =
App.Path & "\" & "my" & Format$(Now(), "ddmmyyyy") & ".mdb"
my_cn.CursorLocation = adUseClient
my_cn.Provider = "Microsoft.Jet.OLEDB.4.0"
my_cn.Open MYDatabase, Admin
Set boss_cn = New ADODB.Connection
BOSSDatabase = App.Path & "\" & "bs" & Format$(Now(), "ddmmyyyy") & ".mdb"
boss_cn.CursorLocation = adUseClient
boss_cn.Provider = "Microsoft.Jet.OLEDB.4.0"
boss_cn.Open BOSSDatabase, Admin
DBConnect = True
Exit Function
OpenErr:
MsgBox "Error Opening " & MSDatabase & vbNewLine & Err.Description, vbCritical, "Open Database Error"
DBConnect = False
End Function