[N3ph.rOm]

Hey Leute! Ich muss für den Unterricht ne Datenbank programmieren mit der man NAmen und so weiter eintragen kann. Ich habe das Interface schon so gut wie fertig auch den Quellcode, allerdings scheitere ich an ein paar dingen! und das betrifft die suchfunktion, das speichern von namen und so/das erstellen einer datei und das sortieren der einträge ich kopier mal den code

Option Explicit
Dim namen(1 To 20) As String * 15
Dim nachname(1 To 20) As String * 15
Dim strassen(1 To 20) As String * 15
Dim ort(1 To 20) As String * 20
Dim geb(1 To 20) As Date
Dim namenneu As String
Dim nachnameneu As String
Dim strassenneu As String
Dim ortneu As String
Dim gebneu As Date
Dim i As Single
Dim k As Single
Dim anzahl As String
Dim ende As String
Dim retten As String

Private Sub cmdbeenden_Click()
    End
End Sub

Private Sub cmdladen_Click()
i = 0
    Open "datenbank.txt" For Input As #1
        Do While Not EOF(1)
            i = i + 1
            Input #1, namen(i), nachname(i), strassen(i), ort(i), geb(i)
            lstdatenbank.AddItem namen(i) & vbTab & nachname(i) & vbTab & strassen(i) & vbTab & ort(i) & vbTab & geb(i)
        Loop
    Close #1
    ende = i
End Sub

Private Sub cmdsort_Click()
    retten = namen(i)
    namen(i) = namen(k)
    namen(k) = retten
End Sub

Private Sub cmdspeichern_Click()
    Open "datenbank.txt" For Append As #1
            Write #1, namenneu, nachnameneu, strassenneu, ortneu, gebneu
    Close #1
End Sub

Private Sub form_load()
    i = 0
    Open "datenbank.txt" For Input As #1
        Do While Not EOF(1)
            i = i + 1
            Input #1, namen(i), nachname(i), strassen(i), ort(i), geb(i)
            lstdatenbank.AddItem namen(i) & vbTab & nachname(i) & vbTab & strassen(i) & vbTab & ort(i) & vbTab & geb(i)
        Loop
    Close #1
    ende = i
End Sub
Private Sub cmdclear_click()
    lstdatenbank.Clear
End Sub
Private Sub txtnamen_KeyPressed(KeyAscii As Integer)
If KeyAscii = 13 Then
    txtnamen = ""
    txtnamen.Visible = True
    txtnachname.SetFocus
End If
End Sub

Private Sub txtnachname_KeyPressed(KeyAscii As Integer)
If KeyAscii = 13 Then
    txtnachnamen = ""
    txtnachnamen.Visible = False
    txtstrasse.SetFocus
End If
End Sub

außerdem will ich von einer textbox in das nächste springen wenn ich die entertaste drücke, hab da auch schon was versucht aber ihr seht ja dass das nicht klappt! könnt ihr helfen??

danke im vorraus