[TextImport.txt]
ColNameHeader=True
Format=Delimited(;)
'CharacterSet=ANSI
DecimalSymbol=.
Col1= Ort Text
Col2= Nummer Float
Col3= Name Text
Col4= Zahl Float
Col5= Farbe Text

Public Function TextDatenADO()
    Dim sPfad As String
    Dim sFile As String
    sPfad = CurrentProject.Path 'oder bei VB6 App.Path
    sFile = "TextImport.txt"
    Dim cnn As New ADODB.Connection, rst As New ADODB.Recordset
    Dim strSQL As String
    cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
             "Data Source=" & sPfad & ";Extended Properties=Text;"
    strSQL = "SELECT Ort, Count(Ort) As Anzahl_Ort " & _
             "FROM " & sFile & " " & _
             "GROUP BY Ort;"
    rst.Open strSQL, cnn, adOpenKeyset
    Do While Not rst.EOF
        Debug.Print rst!Ort, "Anzahl " & rst!Anzahl_Ort
        rst.MoveNext
    Loop
    rst.Close
    cnn.Close
End Function