En esta funcion que hago para sacar un reporte antes de querer cerrar el reporte me tiene que indicar con un mensaje que busca unAsesor de otra base de datos si lo encuentra que no cierre el reporte y el problema no es el SQL si no con elRecordCountque me marca elerror y no me hace sacar el mensaje antes de que cierre el reporte. LO PUSE EN ROJO EL CODIGO QUE ME ESTA DANDO PROBLEMA


Private Sub Report_Close()

ReporteImpreso = True
Dim MyDb As ADODB.Connection, MyQuery As ADODB.Command
Dim vSaldoFinalsegúncajero As Double

Dim MyConnection As ADODB.Connection, MyRSet As ADODB.Recordset
Set MyConnection = CurrentProject.Connection
Set MyRSet = New ADODB.Recordset
MyRSet.Open "SELECT TOP 1 * FROM [Intervalo de fechas del informe Prestamos Personales] WHERE Informe = '" & Me.Name & "' AND Estación = '" & GetMACAddress() & "'", MyConnection, adOpenKeyset, adLockOptimistic
If MyRSet.RecordCount = 0 Then
MyRSet.AddNew
End If
MyRSet("Estación") = GetMACAddress()
MyRSet("Informe") = Me.Name
MyRSet("LeftMargin") = Me.Printer.LeftMargin
MyRSet("RightMargin") = Me.Printer.RightMargin
MyRSet("BottomMargin") = Me.Printer.BottomMargin
MyRSet("TopMargin") = Me.Printer.TopMargin
MyRSet("ColumnSpacing") = Me.Printer.ColumnSpacing
MyRSet("RowSpacing") = Me.Printer.RowSpacing
MyRSet("DataOnly") = Me.Printer.DataOnly
MyRSet("DefaultSize") = Me.Printer.DefaultSize
MyRSet("ItemLayout") = Me.Printer.ItemLayout
MyRSet("ItemsAcross") = Me.Printer.ItemsAcross
MyRSet("ItemSizeHeight") = Me.Printer.ItemSizeHeight
MyRSet("ItemSizeWidth") = Me.Printer.ItemSizeWidth
MyRSet("DeviceName") = Me.Printer.DeviceName
MyRSet("DriverName") = Me.Printer.DriverName
MyRSet("Port") = Me.Printer.Port
MyRSet("ColorMode") = Me.Printer.ColorMode
MyRSet("Copies") = Me.Printer.Copies
MyRSet("Duplex") = Me.Printer.Duplex
MyRSet("Orientation") = Me.Printer.Orientation
''MyRSet("PaperBin") = Me.Printer.PaperBin
MyRSet("PaperSize") = Me.Printer.PaperSize
MyRSet("PrintQuality") = Me.Printer.PrintQuality
MyRSet.Update
MyRSet.Close
MyConnection.Close

Set MyDb = CurrentProject.Connection


MySet.RecordCount = "SELECT [Prestamos Personales].Folio, [Prestamos Personales].Serie, [Prestamos Personales].IdSucursal FROM [Prestamos Personales] WHERE DateDiff(d, [Fecha de Vencimiento], Getdate()) < 60 AND Asesor = 'Gestor' OR DateDiff(d, [Fecha de Vencimiento], Getdate()) < 90 AND Asesor = 'Legal'"
MsgBox "No se puede cerrar"




MyRSet.Open "SELECT TOP 1 [Modo Cajero] FROM [Definición de la compañía común]", MyDb, adOpenKeyset, adLockOptimistic
If Not Nz(MyRSet("Modo Cajero"), 0) = 0 Then
If Not IsNull(Forms![imprime listado de movimientos 5]![Cajero]) Then
If IsNull(Forms![imprime listado de movimientos 5]![De Folio]) And IsNull(Forms![imprime listado de movimientos 5]![A Folio]) Then
If IsNull(Forms![imprime listado de movimientos 5]![De Socio]) And IsNull(Forms![imprime listado de movimientos 5]![A Socio]) Then
If IsNull(Forms![imprime listado de movimientos 5]![Categoría]) Then
If Not IsNull(Forms![imprime listado de movimientos 5]![De Fecha]) And Not IsNull(Forms![imprime listado de movimientos 5]![A Fecha]) Then
If Format(Forms![imprime listado de movimientos 5]![De Fecha], "short date") = Format(Forms![imprime listado de movimientos 5]![A Fecha], "short date") Then
If IsNull(Forms![imprime listado de movimientos 5]![Nombre]) Then
If IsNull(Forms![imprime listado de movimientos 5]![De Fecha de Vencimiento]) And IsNull(Forms![imprime listado de movimientos 5]![A fecha de vencimiento]) Then
If IsNull(Forms![imprime listado de movimientos 5]![Tipo de Movimiento]) Then
If IsNull(Forms![imprime listado de movimientos 5]![Usuario]) Then
If Not IsNull(Forms![imprime listado de movimientos 5]![Serie]) Then
If Forms![imprime listado de movimientos 5]![Serie] = "A" Or Forms![imprime listado de movimientos 5]![Serie] = "B" Then
If MsgBox("¿Desea cerrar el corte para el cajero y día especificados (S/N)?", vbYesNo, "SIC Préstamos Personales") = vbYes Then
MyRSet.Close