Error en rdoresultset 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.
