' irgendwo im code
 
Dim RS as Recordset
RS = setRSfromCSV("C:\test\my.csv",";")
 
' ....
 
Public Function setRSfromCSV(ByVal sDatei As String, ByVal vstrSep As String) _
  As Recordset
 
    Dim Filenummer As Integer
 
    Dim strTemp As String         ' Zeileninhalt
    Dim astrData As Variant       ' Datenfeld
    Dim intCols As Integer        ' Datenfeldgröße
    Dim Cols As Integer           ' Maximale Spalten
    Dim i As Integer              ' Zähler
    Dim myRS As Recordset         ' Temporäres RS
 
    'Set myRS = New Recordset
    Filenummer = FreeFile()
 
    ' Maximale Spaltenanzahl ermitteln
    Open sDatei For Input As #Filenummer
    Do While Not EOF(Filenummer)
        Line Input #Filenummer, strTemp
        If Len(strTemp) <> 0 Then
            astrData = Split(strTemp, vstrSep)
            intCols = UBound(astrData)
            If intCols > Cols Then
                Cols = intCols
            End If
        End If
    Loop
    Close #Filenummer
 
    ' Felder im RS anlegen
    For i = 0 To Cols
        myRS.Fields.Append "Feld" & i
    Next i
 
    ' Felder befüllen
    Open sDatei For Input As #Filenummer
    Do While Not EOF(Filenummer)
        Line Input #Filenummer, strTemp
        If Len(strTemp) <> 0 Then
            astrData = Split(strTemp, vstrSep)
            intCols = UBound(astrData)
            myRS.AddNew
            For Col = 0 To intCols
                myRS.Fields(Col).Value = astrData(i)
            Next Cols
            myRS.Update
        End If
    Loop
    Close #Filenummer
 
    setRSfromCSV = myRS
 
End Function