Public Sub excel(ByVal sql As String)
        Dim Excel1 As New 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(database.getDatabasepath() & _
                  "test.mdb", CommandText:=sql)
                Dim Selection As Excel.Range = Excel1.Range(.Cells(1, 1), _
                .Cells(1, ExcelExport.ImageCheckedListbox1.SelectedItems.Count))
 
                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
                Dim a As Integer = _
                  ExcelExport.ImageCheckedListbox1.SelectedItems.Count
                Dim b As Integer = Video.ToolStripProgressBar1.Maximum
                Selection = Excel1.Range(.Cells(1, 1), .Cells(b, a))
                Selection.Columns.AutoFit()
 
                .Visible = True
            End With
 
        Catch ex As Exception
            Msgbx.ShowMessage(ex.Message, 1)
        Finally
 
            System.Threading.Thread.CurrentThread.CurrentCulture = oldCI
 
        End Try
 
    End Sub

  .Workbooks.OpenDatabase(database.getDatabasepath() & "test.mdb", _
    CommandText:=sql)

Gruss Caddy