Function GetJetConnection(strDBPath As String, _
lngMode As ADODB.ConnectModeEnum, _
Optional strDBPwd As String, _
Optional strSysDBPath As String, _
Optional strUserID As String, _
Optional strUserPwd As String, _
Optional lngEngineType As opgJetEngineType) _
As ADODB.Connection
Dim cnnDB As ADODB.Connection