Udskriv Excel regnearke fra VB

Hvordan kan jeg få dette program til at finde næste post?



Private Sub Command2_Click()
Data1.Recordset.AddNew
    Text1.SetFocus
End Sub

Private Sub find_Click()
FindText 1
End Sub
Private Sub FindText(ByVal start_at As Integer)
Dim pos As Integer

Dim Navn As String
Dim Fundet As Boolean
Fundet = False
On Error GoTo err:

    Data1.Recordset.MoveFirst
Do While Data1.Recordset.EOF = False
    Do Until Fundet = True
    Navn = UCase(Data1.Recordset(\"navn\"))
    target = UCase(Txt.Text)
    pos = InStr(start_at, Navn, target)
    Findtemp = target
    If pos > 0 Then
        \' We found it.
        TargetPosition = pos
        Txt.SelStart = TargetPosition - 1
        Txt.SelLength = Len(target)
        Form1.SetFocus
        Fundet = True
           
        \' We did not find it.
        \'MsgBox \"Not found.\"
        \'txtBody.SetFocus
       
    End If
    If Fundet = False Then
    Data1.Recordset.MoveNext
    varBookmark = (\"\")
    Else
    varBookmark = Data1.Recordset.Bookmark
    Txt.Text = \"\"
    Exit Sub
    End If
    Loop
    Loop
err:
    If err.Number = 94 Then
    MsgBox \"Fejl:\" & vbCrLf & \"Den indtastede person findes ikke!\", vbExclamation
    \'    Exit Sub
   
    \'If err.Number = 0 Then
    \'MsgBox \"OK:\" & vbCrLf & \"Konverteringen gik fint\"
    Else
    MsgBox \"Error:\" & vbCrLf & err.Description & vbCrLf & err.Number, vbExclamation
    End If
   
    Exit Sub
End Sub

Og hvordan får jeg sorteret denne slags data?

intet svar