سلام دوست عزیز
Dim da As New OleDbDataAdapter
Dim ds As New DataSet
Dim cc As New OleDbConnection
Dim a As Integer = 0
Dim s As String = "D:\1.mdb"
cc.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & s & ";Jet OLEDB:Database Password=;"
ds.Clear()
DataGridView1.DataBindings.Clear()
DataGridView1.ReadOnly = True
da.SelectCommand = New OleDbCommand
da.SelectCommand.Connection = cc
da.SelectCommand.CommandType = CommandType.Text
da.SelectCommand.CommandText = "Select * From table1"
cc.Open()
da.Fill(ds, "table1")
cc.Close()
DataGridView1.DataBindings.Add(New Binding("datasource", ds, "table1"))
با این کد میتونید دیتابیس اکسس رو باز کنید
با رجوع به این صفحه هم میتونید از دیتا گرید خودتون خروجی اکسل بگیرین
موفق باشید