Dim AccessConn As New OleDbConnection( _
          "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\test\test.mdb;")
 
        AccessConn.Open()
 
        'New sheet in Workbook
        Dim AccessCommand As New OleDbCommand("SELECT * INTO [Excel 12.0 Xml;" & _
          "DATABASE=C:\test\test.xls; HDR=Yes;].[Test] from [test]", _
          AccessConn) 'Excel: [test] from Accesstab: [test]
 
        AccessCommand.ExecuteNonQuery()
        AccessConn.Close()