Notes

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim conn As OleDbConnection
Dim dta As OleDbDataAdapter
Dim dts As DataSet
Dim excel As String
Dim OpenFileDialog As New OpenFileDialog
OpenFileDialog.InitialDirectory = Application.StartupPath
OpenFileDialog.Filter = "All Files (*.*)|*.*|Excel files (*.xlsx)|*.xlsx|CSV Files (*.csv)|*.csv|XLS Files (*.xls)|*xls"
If (OpenFileDialog.ShowDialog(Me) = System.Windows.Forms.DialogResult.OK) Then
Dim fi As New FileInfo(OpenFileDialog.FileName)
Dim FileName As String = OpenFileDialog.FileName
excel = fi.FullName
conn = New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" + excel + ";Extended Properties=Excel 12.0;")
MsgBox(rowcount(excel, conn))
dta = New OleDbDataAdapter("Select * From [Sayfa1$]", conn)
dts = New DataSet
dta.Fill(dts, "[Sheet1$]")
DataGridView1.DataSource = dts
DataGridView1.DataMember = "[Sheet1$]"
conn.Close()
End If
End Sub
Function rowcount(excel As String, conn As OleDbConnection) As Integer
Dim rc As Integer
If conn.State <> ConnectionState.Open Then conn.Open()
Dim dc As New OleDbCommand("Select Count(*) From [Sayfa1$]", conn)
Dim reader As OleDbDataReader = dc.ExecuteReader()
If reader.HasRows Then
While (reader.Read())
rc = reader.GetInt32(0) + 1
Exit While
End While
Else
rc = 0
End If
Return rc
End Function