Visual Basic - SQL en DataEnvironment

Call AUXLOAD("Select * from tablaX where month(fecha) = 6")

Public Sub AUXLOAD(Leter As String)

On Error GoTo AUXLOAD_Error

    If DTE.rsAUXIMP.State <> 0 Then

        DTE.rsAUXIMP.Close

    End If

    DTE.Connection1.Properties.Refresh

    DTE.rsAUXIMP.Open Leter, DTE.Connection1

    If DTE.rsAUXIMP.RecordCount = 0 Then

        MsgBox "No se encontraron registros compatibles con las especificaciones", vbInformation, App.TITLE

    Else

        'Codigo para visualizar el REPORTS

    End If

    On Error GoTo 0

    Exit Sub

AUXLOAD_Error:

    MsgBox "Error " & Err.Number & " (" & Err.Description & ") . Por favor inténtelo más tarde. Si el problema persiste recomendamos cerrar el sistema.", vbCritical, MSGERR

    Err.Clear

End Sub