error en tiempo de ejecucion

[juancho24]

hola amigos del foro

me podrian ayudar con el siguiente error

error '3021' en tiempo de ejecucion :

el valor de BOF o EOF es True, o el actual registro se elimino; la operacion solicitada requiere un registro actual.

aca les dejo el codigo para ver si ay esta el error :\

muchas gracias


If Optdetalleregiones.Value = True Then

rsllenar.Open "SELECT DATOSVISITADOR.RutVisitador, DATOSVISITADOR.DvVisitador, DATOSVISITADOR.NombreVisitador, VISITAS.HoraVisita, VISITAS.Fecha, DATOSCLIENTE.Region, DATOSCLIENTE.Ciudad FROM (VISITAS INNER JOIN DATOSVISITADOR ON (VISITAS.RutVisitador=DATOSVISITADOR.RutVisitador) AND (VISITAS.DvVisitador=DATOSVISITADOR.DvVisitador)) INNER JOIN DATOSCLIENTE ON (VISITAS.RutCliente=DATOSCLIENTE.RutCliente) AND (VISITAS.DvCliente=DATOSCLIENTE.DvCliente) Where (DATOSCLIENTE.Region = (' " & com_regiones.Text & " '));", cnn1, adOpenStatic, adLockOptimistic
If rsllenar.BOF = False And rsllenar.EOF = False Then
If com_regiones.Text <> "" Then
If rsllenar("region") = com_regiones.Text Then
Call CargarDataGrid(DataGrid1)
Else
MsgBox ("no hay datos para cargar"), vbInformation
End If
Else
MsgBox ("Debe seleccionar un dato"), vbCritical
End If
Else
MsgBox ("La tabla no tiene registros"), vbCritical

End If
Call Ajustar_Columna_DataGrid(DataGrid1, adodc1, True)
End If
cmdVistaPrevia.Enabled = True

End Sub