Error en rdoresultset

[Ecj]

Buenas noches.

Tengo un problema cuando capturo los datos con un rdoresultset habiendo hecho la consulta con un rdoquery, a continuacion les muestro el codigo haber en que estoy fallando:


Dim isqlval As String
Dim qryval As New rdoQuery
Dim rst As rdoResultset

isqlval = "Select * from Gente where Documento='1'"
Set qryval.ActiveConnection = RDOCONEXION
qryval.SQL = isqlval
qryval.Execute
Set rst = qryval.OpenResultset(rdOpenDynamic)
If (rst.RowCount >= 1) Then
MsgBox rst
Me.Text1 = rst("Nombre")
Else
MsgBox "No existe"
End If
qryval.Close

Cuando llega a la linea en color rojo se me cierra visual de una.

No se que pasa pero solo sucede esto con el rdoresultset porque cuando hago un insert, o un delete o un update no hay problema.

Agradezco cualquier ayuda, la bd esta en mysql.