Private Sub cmdShow_Click()
frmKontoAnzeigen2.Lvw4.ListItems.Clear
If Not txtKontonummer.Text > txtKontoNummer2.Text Then
Do While txtKontonummer.Text = txtKontoNummer2.Text ' Diese Schleife ist 
' gemeint... das ganze läuft so lange, bis die kontonummer von der ersten 
' Textbox gleich ist, wie die von der 2. Textbox
    Dim rs As New ADODB.Recordset
    Dim rs1 As New ADODB.Recordset
    Dim tLi As ListItem
    Dim nummer As String
 
'    If txtKontonummer.Text = "" Then
'        MsgBox "Bitte geben Sie eine Kontonummer ein", vbExclamation
'        txtKontonummer.SetFocus
'        Exit Sub
'    End If
 
    If txtKontonummer.Text <> "" Then
        nummer = "%" & txtKontonummer & "%" ' Suchbegriff
        rs.Open "select" & _
          "rid,BelegDatum,BelegNr,Durchgangsposten,BuchungsText,OriginalBuchun" & _
          ",KontoSoll,BetragSoll,KontoHaben,BetragHaben,BetragUStSoll,BetragUS" & _
          "Haben,KontoName from Journal where KontoName like '" & nummer & "'", _
          con, adOpenKeyset, adLockReadOnly
    End If
    ' Dateneintragen für die andere Listview
    If rs.EOF = False Then
        Do While Not rs.EOF
        Set tLi = frmKontoAnzeigen2.Lvw4.ListItems.Add
'        tLi.Text = rs("Rid")
 
        If IsNull(rs("BelegDatum")) = False Then
            tLi.SubItems(1) = Format$(CDate(rs("BelegDatum")), "dd.mm.yy")
        End If
 
        If IsNull(rs("BelegNr")) = False Then
            tLi.SubItems(2) = rs("BelegNr")
        End If
 
' und viele anderen Daten... wurde gekürzt, weil sonst der Text zu lang wird
 
        rs.MoveNext
 
        Loop
 
        tRid = frmKontoAnzeigen2.Lvw4.ListItems.Item(1).Text
        frmKontoAnzeigen2.Lvw4.ListItems.Item(1).Selected = True
'       Else
'       MsgBox "Die eingegebene Kontonummer wurde nicht gefunden", vbInformation
 
    End If
    rs.Close
    Set rs = Nothing
    Set rs1 = Nothing
 
    txtKontonummer = txtKontonummer + 1
    Loop ' Bis hier loopen
    frmKontoAnzeigen2.Caption = "Kontonummer " & knummer & " bis " & _
      Kontonummer.text & " Anzeigen"
    frmKontoAnzeigen.Visible = False
    frmKontoAnzeigen2.Show 1, Me
Else
    MsgBox "Die erste Kontonummer ist Größer, als die zweite." & vbNewLine & _
      "Vorgang abgebrochen!"
End If
End Sub

_________________________________
Jabber: linkin@jabber.ccc.de