Public Sub dbConnect(concmd As String, cmdtxt As String)
    Set con = New ADODB.Connection
    con.CursorLocation = adUseClient
    con.Open concmd
 
    Set rs = New ADODB.Recordset
    rs.CursorType = adOpenDynamic
    rs.LockType = adLockOptimistic
    rs.Open cmdSELECT, con
End Sub

    Dim FDate As Date
    FDate = CDate(DateAdd("m", -1, Now))
 
    ' cmdSELECT = "SELECT * FROM X1100PAT WHERE PAT<1000010"
    ' cmdSELECT = "SELECT * FROM X1100PAT WHERE DISD BETWEEN #" & _
    ' Format$(CStr(FDate), "dd-mmm-yy") & "# AND #31-DEC-2099#"
    cmdSELECT = "SELECT * FROM X1100PAT WHERE DISD > #31-DEC-2002#"
 
    dbConnect sOracle, cmdSELECT