Dim oCon As New ADODB.Connection
Dim oRecordset As ADODB.Recordset
    With oCon
        .Provider = "Microsoft.Jet.OLEDB.4.0"
        .Open App.Path & "\" & "info.mdb"
        .CursorLocation = adUseClient
    End With
    Set oRecordset = New ADODB.Recordset