Public Sub excel(ByVal sql As String)
        Dim Excel1 As Microsoft.Office.Interop.Excel.Application
        Dim oldCI As System.Globalization.CultureInfo = _
  System.Threading.Thread.CurrentThread.CurrentCulture
        System.Threading.Thread.CurrentThread.CurrentCulture = _
            New System.Globalization.CultureInfo("en-US")
        Try
            With Excel1
                .Workbooks.OpenDatabase(Pfad1, CommandText:=sql)
                .Rows("1:1").Select() 
 
                With .Selection.Font 
                    .Name = "Arial Black"
                    .Size = 12
                    .Strikethrough = False
                    .Superscript = False
                    .Subscript = False
                    .OutlineFont = False
                    .Shadow = False
                    .Color = -10477568
                    .TintAndShade = 0
                End With
 
                With .Selection.Interior 
                    .Color = 16355230
                    .TintAndShade = 0
                    .PatternTintAndShade = 0
                End With
 
                With .ActiveWindow
                    .SplitColumn = 0
                    .SplitRow = 1
                    .FreezePanes = True
                End With
 
                .Cells.Select()
                .Selection.Columns.AutoFit()
 
 
                .Visible = True
            End With
 
        Catch ex As Exception
            MsgShow(ex.Message, 1)
        Finally
 
            System.Threading.Thread.CurrentThread.CurrentCulture = oldCI
 
        End Try
 
    End Sub

Gruss Caddy