Imports System.Text
Imports System.Runtime.InteropServices
 
Public

Imports System.Data.OleDb
Public Class Form1
    Private Function GetDataTable() As DataTable
        Dim cnn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|\Test.mdb")
        Dim dAdapter As New OleDbDataAdapter("Select ID, Product, ParentID, ProductType From TableProduct", cnn)
        Dim rows As Integer
        Dim tblTemp

Imports Microsoft.Office.Interop.Excel  
Public Class Form1  
  
    Dim ExApp As New Application           'Приложение Excel  
    Dim ExWB As Workbook                   'Книга Excel  
    Dim ExWS As Worksheet                  'Лист книги Excel  
 
 
#Region