Set Conn = New ADODB.Connection
Set CSVopen = New ADODB.Recordset
 
Conn.Provider = "Microsoft.Jet.OLEDB.4.0"
Conn.ConnectionString = "Data Source=" & FileExt(0) & ";Extended" & _
  "Properties=""text;HDR=Yes; FMT=Delimited"""
'HDR=Yes gibt an, dass die erste Zeile des Arbeitsblattes Spaltenüberschriften 
' beinhaltet
 
Conn.Open
 
SQL = "Select * from " & Filetitle
 
CSVopen.ActiveConnection = Conn
CSVopen.Source = SQL
CSVopen.Open