'Buat koneksi ke .xls (Excel)
strAlamat = D:\ImportDataa.xls 'Lokasi database Excel
strKonek = "provider=microsoft.jet.oledb.4.0;"
strKonek = strKonek & "data source=" & strAlamat & ";"
strKonek = strKonek & "extended properties= 'Excel 8.0;HDR=yes;imex=0';"
Conn.CursorLocation = adUseClient
Conn.Open strKonek

'Buka File Excel Sesuai Sesuai nama Sheetnya serta ditampilkan langsung ke listview
Dim strKueri As String
Set rsIdentitas = Nothing
strKueri = "select * from [Sheet$]"
rsIdentitas.Open strKueri, Conn, adOpenDynamic, adLockOptimistic
If rsIdentitas.RecordCount > 0 Then
rsIdentitas.MoveFirst
ListView1.ListItems.Clear
no = 0
While Not rsIdentitas.EOF
Set Lis = ListView1.ListItems.Add(, , no + 1)
    Lis.SubItems(1) = rsIdentitas.Fields("Nama_Barang")
    Lis.SubItems(2) = rsIdentitas.Fields("Harga_jual")
    no = no + 1
rsIdentitas.MoveNext
Wend
    Tb = no
    'Lis.Selected
    Lis.EnsureVisible 'posisi data paling bawah
End If
Conn.Close
End Sub