Dim Excel1 As New Microsoft.Office.Interop.Excel.Application
 
  Try
          Excel1.Workbooks.OpenDatabase(Pfad, CommandText:=sql)
          Excel1.Visible = True
          Excel1.Rows("1:1").Select()
          Excel1.Selection.Style = "Akzent4"
          Excel1.Selection.Font.Size = 16
            With Excel1.ActiveWindow
                .SplitColumn = 0
                .SplitRow = 1
                .FreezePanes = True
            End With
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        Finally
  End Try

   Excel1.Workbooks.OpenDatabase(Pfad, CommandText:=sql)

Gruss Caddy