Option ExplicitPrivate mdbPassword As StringPrivate mdbPath As StringPrivate Server As StringPrivate UserID As StringPrivate Password As StringPrivate DatabaseName As StringPublic Property Let l_mdbPath(str_mdbPath As String)
mdbPath = str_mdbPathEnd PropertyPublic Property Let l_mdbPassword(str_mdbPas...