Hola todopic!! Estoy terminando el curso de visual basic de luis bonilla y al final crea un programa que es como una agenda telefonica, introduces los datos y luego buscas por el nombre y te salen los datos. El problema es que la primera vez que consulto la base de datos funciona bien, pero la segunda vez ya no, me dice error 55, el archivo ya esta abierto.
A que es devido este error??
Este es el codigo del boton consultar
Private Sub Command1_Click(Index As Integer)
Open "C:datos.dat" For Input As 1
Do While Not EOF(1)
Input #1, nombrecogido
Input #1, direcogido
Input #1, telcogido
Input #1, cpcogido
If nombrecogido = Text5.Text Then
Text1.Text = nombrecogido
Text2.Text = direcogido
Text3.Text = telcogido
Text4.Text = cpcogido
Exit Sub
End If
Loop
Close #1
End Sub
