Help vb 2010: type OledbConnection, OledbAdapter, and OledbCommand is not defined

[lindafitriani]

I'm trying to import data excel (*.xlsx) to reportview... but i'm getting stuck for six hours to solve this problem :
type OledbConnection, OledbAdapter, and OledbCommand is not defined

i also couldn't find any reference named Microsoft Jet OledB 4.0 in my visual studio 2010 ......... but i find Microsoft Jet and Replication Object 2,6 Library... i added it to my reference , but it didn't work to solve my problem

my question is : where can i download reference to Microsoft Jet OledB 4.0... is there any mistakes in my installation package visual studio 2010?

once, i got message that type "crystalreport" is not defined, probably because i use visual studio 2010 that's not include crystal report in their package installer, and i decided have to download it as 3rd party..

here my codes so far... i'm not finished it yet to the report view... i was stuck in this "type not defined error"

here i attached also my files ( my macro.xla (zipped in *.zip), and some excel files to execute)

please help me, i would appreciate any help...

Public Class Form1
    Private Sub btn_PilihFileExcel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_PilihFileExcel.Click
        ListBox_DaftarSelectedFiles.Items.Clear()
        txt_FileDirektori.Clear()
        OpenFileDialog_ExcelStart.InitialDirectory = "C:\"
        OpenFileDialog_ExcelStart.Multiselect = True
        OpenFileDialog_ExcelStart.Filter = "Excel files (*.xls or *.xlsx)|*.xlsx;*.xls"
        OpenFileDialog_ExcelStart.RestoreDirectory = True
        OpenFileDialog_ExcelStart.Title = "Pilih File dari Logger RCS (File Excel)"
        If (OpenFileDialog_ExcelStart.ShowDialog() = System.Windows.Forms.DialogResult.OK) Then
            ' Read the files
            Dim DaftarFile As String
            Dim onlyfilename As String
            For Each DaftarFile In OpenFileDialog_ExcelStart.FileNames
                onlyfilename = Mid(DaftarFile, InStrRev(DaftarFile, "\") + 1)
                ListBox_DaftarSelectedFiles.Items.Add(onlyfilename)
                txt_FileDirektori.Text = Mid(DaftarFile, 1, InStrRev(DaftarFile, "\"))
            Next
        ElseIf (System.Windows.Forms.DialogResult.Cancel) Then
            MsgBox("You must select one or more file to import before proceeding (Program tidak akan berjalan jika tidak ada file yang dipilih)", vbOKOnly + vbExclamation, "No file Selected, exiting (Keluar Program)")
 
        End If
 
    End Sub
 
    Private Sub btn_EksekusiProgram_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_EksekusiProgram.Click
        Dim XL As Object, InstallAddIn As Object
        XL = CreateObject("Excel.Application")
        XL.Workbooks.Add()
        InstallAddIn = XL.AddIns.Add("C:\Users\Linda Fitriani\Documents\latihan kondisi\macro_PrereqFiles.xla", True)
        InstallAddIn.Installed = True
        XL.Quit()
        XL = Nothing
 
        XL = CreateObject("Excel.Application")
 
        For Each DaftarFile In OpenFileDialog_ExcelStart.FileNames
            XL.Workbooks.Open("C:\Users\Linda Fitriani\AppData\Roaming\Microsoft\Excel\XLSTART\PERSONAL.XLSB")
            XL.Workbooks.Open(DaftarFile)
            XL.Visible = True         'See what is going on?
            XL.Run("PERSONAL.XLSB!Macro_PrereqFiles")
            'Save as varFile & "_2.xls"  (strip .xls from strExcelFile)
            'Example: C:\Test\Stock_Quotes.xls will be Saved As C:\Test\Stock_Quotes_2.xls
            Dim FileResult As String
            FileResult = Microsoft.VisualBasic.Left(DaftarFile, Len(DaftarFile) - 5) & "_2.xlsx"
            XL.ActiveWorkBook.SaveAs(FileResult)
            'XL.Quit
            XL.ActiveWorkbook.Close(False)
            '===================================================================================
            Dim _conn As String
            Dim ds1 As New DataSet
            Dim rpt As New CrystalReport()
            _conn = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & FileResult & ";" & "Extended Properties=Excel 8.0;"
            Dim _connection As OleDbConnection = New OleDbConnection(_conn)
            Dim da As OleDbDataAdapter = New OleDbDataAdapter()
            Dim _command As OleDbCommand = New OleDbCommand()
            _command.Connection = _connection
            _command.CommandText = "SELECT * FROM [Import$]"
            da.SelectCommand = _command
 
            Try
                da.Fill(ds1, "Import")
                MessageBox.Show("The import is complete!")
                'Me.DataGridView1.DataSource = ds1
                'Me.DataGridView1.DataMember = "Import"
            Catch e1 As Exception
                MessageBox.Show("Import Failed, correct Column name in the sheet!")
            End Try
        Next
        ' Close Excel.
        XL.Quit()
        XL = Nothing
    End Sub
End Class

[lindafitriani]

SOLVED

by using

Imports System
Imports System.Data
Imports System.Data.OleDb

haha, stupid me :D
:) thank u...