rs.Open "SELECT .... FROM Journal WHERE Val(KontoNr) >= " & _
  txtKontonummer.Text & " AND Val(KontoNr) <= " & txtKontonummer2.Text
If rs.RecordCount > 0 Then
  Do
    Set tLi = frmKontoAnzeigen2.Lvw4.ListItems.Add
    ...
    rs.MoveNext
  Loop Until rs.EOF
End If

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de