Export Records from Access table to Excel Sheet

See more:

VB

MS-Excel

MS-Access

Hai All,
I am developing one VB Application in Visual Studio 2010. And readings the records from Access Table via Data Grid View. Now i need to export that records from access table to excel sheet That to how many records user wanted only that records has been export to excel sheet.
Here i am giving the code that i am using to display the records from data grid view

cnnOLEDB.ConnectionString = strConnectionString
        'MsgBox(strConnectionString)
        cnnOLEDB.Open()
        'Timer1.Enabled = True
        Dim dt1 As New DataTable()
        dt1.Clear()
        Dim adp As New OleDb.OleDbDataAdapter("SELECT TOP 10 * FROM SMSDATA1DB ORDER BY Date_Time DESC", "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & System.Environment.CurrentDirectory & "\SMSDB.mdb")
        adp.Fill(dt1)
        adp.Dispose()
        DGView.DataSource = dt1

Any body please help to export records to excel sheet PLZZZZZZZZZZZ................