VB 2008 ile Excelden Forma Bilgi Çekme

[NBATMAN]

Ben konu ile ilgili aşağıdaki kodları kullanıyorum. Umarım ihtiyacı olanın işine yarar.

Kodları denerken C:/Excel/excel1.xls yoluna sahip içinde SıraNo,Ad,Soyad başlıklarına sahip bir excel dosyası olıuşturmayı unutmayın.SıraNo başlıklı alan içindeki veriler mutlaka sayı olmalı...diğer alanlardaki verilerde yalnız sayı olmamalı, string olabilir.

Imports Microsoft.Win32
Imports System.Data.OleDb ' Veritabanı ile bağlantı yapmayı sağlayacak olan komutlar içeren kütüphaneyi projeye dahil ediyoruz...
Imports System.Drawing.Color
Imports System.IO
Imports System.Runtime.InteropServices
Imports System.Threading
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim conn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:/Excel/excel1.xls;Extended Properties=""Excel 8.0;HDR=YES;""")
Dim com As OleDbCommand = New OleDbCommand("select SraNo,Ad,Soyad from [Sayfa1$] where SraNo<>0", conn)
conn.Open()
Dim dr As OleDbDataReader
dr = com.ExecuteReader
While (dr.Read())
ListBox1.Items.Add(String.Format("{0} - {1} - {2}", dr("SraNo").ToString(), dr("Ad").ToString, dr("Soyad").ToString()))
End While

conn.Close()

End Sub
End Class