Option Explicit
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
 
Private Sub Form_Load()
 
' Datenbanktreiber
 
    cn.CursorLocation = adUseClient ' das hat gefehlt !!!
 
    cn.Provider = "Microsoft.Jet.OLEDB.4.0"
    ' Servername
    cn.Properties("Data Source") = "c:\"
    ' Datenbankname
    cn.Properties("Extended Properties") = "text;HDR=Yes;FMT=Delimited"
    ' Verbindung herstellen
    cn.Open
 
End Sub
 
Private Sub rsview()
 
Set rs = New ADODB.Recordset
 
rs.Open "SELECT * From textdatei.txt ", cn, adOpenDynamic, adLockOptimistic
 
With DataGrid1
    .Caption = "Daten"
    Set .DataSource = rs
End With
 
End Sub
 
Private Sub Cmd_Lesen_Click()
  rsview
End Sub