Set m_DBConn = New ADODB.Connection m_DBConn.Open _ "Provider=Microsoft.Jet.OLEDB.4.0;" & _ "Data Source=" & mdbName & ";" & _ "Persist Security Info=false" With m_DBConn If .State = adStateOpen Then .Close End If .Mode = adModeShareDenyNone .Open mdbName, "Admin" End With
m_DBConn.Open _
"Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & mdbName & ";" & _
"Persist Security Info=false"
With m_DBConn
If .State = adStateOpen Then
.Close
End If
.Mode = adModeShareDenyNone
.Open mdbName, "Admin"
End With