Validacion en VB6

[rambo_3]

Hola, tengo que hacer una validación que si el dni que se busca en la base de datos no existe muestre un Msgbox que diga "no existe dni". No puedo encontrarle la vuelta para hacer esa validación. Me podrian ayudar?. Gracias.

Private Sub Text1_Change()
Dim i, cant As Integer

dni = Text1.Text

cant = Adodc1.Recordset.RecordCount
Adodc1.Recordset.MoveFirst

For i = 0 To cant - 1
If Adodc1.Recordset.Fields("dni") = dni Then
Text2.Text = Adodc1.Recordset.Fields("Nombre")
Text3.Text = Adodc1.Recordset.Fields("Apellido")
Text4.Text = Adodc1.Recordset.Fields("EstadoInscripto")
Text5.Text = Adodc1.Recordset.Fields("EstadoSancion")


Text2.DataField = "Nombre"
Text3.DataField = "Apellido"
Text4.DataField = "EstadoInscripto"
Text5.DataField = "EstadoSancion"

pos = i
Command1.SetFocus
Exit For

Else

Adodc1.Recordset.MoveNext

End If

Next
End Sub

[XDMerinoM]

Yo lo haria asi:

if cant = 0 then
msgbox "No existe dni", vbInformation
exit sub
end if