Yang ini sebenernya rada ajaib, namun gpp deh buat jawab pertanyaan dari Panji Abdi di postingan http://rani-irsan.blogspot.com/2015/04/vbnet-memilih-file-excel-untuk.html dan http://rani-irsan.blogspot.com/2014/04/vb6-memperlihatkan-data-dari-excel-ke.html Yaitu perihal memakai ADODB Recordset di VB.NET dan dipakai untuk menampilkan data dari file Excel ke DataGridView. Pertama2 Add Reference dulu dengan cara mirip gambar di bawah: Pada obrolan Add Reference pilih Tab COM, lalu pilih Microsoft ActiveX Data Object 2.7 Library, dan klik OK. UI yang kita pakai simple aja cuman Form dan DataGridView. Code: Imports ADODB Imports System.Data.OleDb Public Class frmADODB Dim xConn As ADODB.Connection Dim rsTable As ADODB.Recordset Dim rsExcel As ADODB.Recordset Dim strExcel As String Private Sub Open_Excel() xConn = New ADODB.Connection With xConn .Provider = "Microsoft.ACE.OLEDB.12.0" .ConnectionString = "Data Source=d:\karyawan.xls;" & _ "Extended Properties=Excel 12.0;" .Open() End With rsExcel = New ADODB.Recordset strExcel = "SELECT * FROM [Sheet1$]" With rsExcel .CursorLocation = CursorLocationEnum.adUseClient .Open(strExcel, xConn, CursorTypeEnum.adOpenKeyset, _ LockTypeEnum.adLockReadOnly) .ActiveConnection = Nothing End With Me.DataGridView1.DataSource = RecordSetToDataTable(rsExcel) rsExcel.Close() xConn.Close() End Sub Public Function RecordSetToDataTable( _ ByVal objRS As ADODB.Recordset) As DataTable Dim objDA As New OleDbDataAdapter() Dim objDT As New DataTable() objDA.Fill(objDT, objRS) Return objDT End Function Private Sub frmADODB_Load(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles MyBase.Load Open_Excel() End Sub End Class Mari kita coba: Catatan: Waktu nyoba sempet error terus provider not found, ternyata provider nya harus pake yang buat Excel 2007 keatas yakni "Microsoft.ACE.OLEDB.12.0" Click here if you like this article. Sumber http://rani-irsan.blogspot.com