x = Dir(App.Path & "\datos.dat")
If x <> "" Then
GoTo addbase
Else
quest = MsgBox("La base de datos no existe." & vbCrLf & "Desea crear una nueva ?", vbYesNo + vbQuestion, "Información")
If quest = vbNo Then
Exit Sub
Else
addbase:
Dim conf
canalf = FreeFile
conf = MsgBox("Desea añadir la ficha de " & Text1.Text & " a la base de datos ?", vbInformation + vbYesNo, "Información")
If conf = vbNo Then
Exit Sub
Else
Open App.Path & "\datos.dat" For Append As canalf
Write #canalf, Text1.Text
Write #canalf, Text2.Text
Write #canalf, Text3.Text
Write #canalf, Text4.Text
Write #canalf, Text5.Text
Close canalf
End If
End If
End If