Hola buenos días Tengo este fragmento de código en visual basic que al compilar me da error
Sub ImprimirEtiquetasPorLote(NumeroLote As Long)
Dim StrSQL As String, _
ElRs As Object, _
MiRpt As Object, _
StrPedidoPaquete As String, _
IntPaginas As Integer, _
RptConcatenado As RptEtiqPaqueteria ' DDActiveReports2.ActiveReport
mvarStrConexion = MiStrConexion
StrSQL = ObtenerSQL("ETIQUETAS PARA PAQUETERIA (POR LOTE)")
StrSQL = Replace$(StrSQL, "$$NUMEROLOTE$$", NumeroLote & " AND Production.Packages.CreatedByUserName<>'Auto_VLM'")
Set ElRs = RecordSetLectura(StrSQL)
**If Not ElRs.EOF Then**
Se queja en la línea que os pongo con asteriscos. He mirado que la variable StrSql me la rellena correctamente pero no veo el fallo. ¿Me podéis ayudar?
RecordSetLectura(StrSQL)
? a ver si es que la variableElRs
va a estar vacía