Rs.CursorType = adOpenKeyset
    Cn.CursorLocation = adUseClient
    With Cn
        .Properties("Data Source").Value = "oci8"
        .Properties("User ID").Value = "rsclient"
        .Properties("Password").Value = "public"
        .Open
    End With
 
    Rs.Open SQLstr, Cn, adOpenStatic
    ShowRecordsetTable Rs
    Rs.Close
    Set Rs = Nothing