Dim objcon As New ADODB.Connection, rst As New ADODB.Recordset
Dim strsql As String, intcols As Integer, i As Integer
objcon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=P:\;Extended" & _
  "Properties='text;HDR=Yes;FMT=Delimited'"
strsql = "select * from Überweisungsträger.csv"
'rst.CursorLocation = adUseClient
rst.Open strsql, objcon, adOpenStatic, adLockOptimistic
With Me.sevGrid1
    .LockUpdate True
    .DataMode = Mode_Recordset
    .Clear True
    .CreateClone = True
    Set .Recordset = rst
    intcols = .Cols
    For i = 1 To intcols
        .Columns(i).Visible = False
    Next i
    .Columns("Datum").Visible = True
    .Columns("Zahlbank").Visible = True
    .Columns("Zahlbank").Width = 3000
    .Columns("Empfänger").Visible = True
    .Columns("Empfängerbank").Visible = True
    .Columns("Empfängerbank").Width = 3000
    .Columns("Betrag").Visible = True
    .Columns("Empfänger").Width = 3000
    .Columns("Betrag").Width = 1500
    '.Columns("Betrag").AdjustWidthToGridSize
    .Columns("Betrag").DisplayFormat = "#,##0.00"
    .LockUpdate False
    .Refresh
End With