No puedo enrrollarme que tengo que irme a trabajar, así que intentaré ir al grano.
La sub mostrar espera un parámetro, que es el numero de registro a mostrar, por eso lo de poner:
Call mostrar c
suponiendo que en c tengas el numero de registro que quieres mostrar.
Para tu uso creo que te sirve igual si quitas la sub mostrar y la integras en la sub buscar.
Código :
Ver originalPrivate Sub Form_busca() 'Busqueda
Dim c As Integer, b As Byte, x As Integer
c = 1
While b = 0 And Not EOF(1)
Get #1, c, regins
If regins.Nro_ins = c Then
If regins.doc = Val(txtdni) Then
b = 1
txtape.Text = regins.Ape
txtaño.Text = regins.Año
txtin.Text = regins.Nro_ins
txtnom.Text = regins.Nom
CBOEstado.Text = regins.Estci
txtfecnac.Text = regins.FNac
txtlnac.Text = regins.LNac
txtdom.Text = regins.Dom
txtmat1.Text = regins.Mat1
txtmat2.Text = regins.Mat2
txtmat3.Text = regins.Mat3
txtmat4.Text = regins.Mat4
txttel.Text = regins.Tel
txttit.Text = regins.Tit
txtest.Text = regins.Establ
txthora.Text = regins.Hora
c = regesta
MsgBox "Nro De Inscripción Existente", vbCritical, "Error D.N.I."
txtdni.SetFocus
Else
c = c + 1
End If
End If
Wend
End Sub
De ese modo cuando encuentre una coincidencia la muestra directamente.
Que se dé bien