Imports System.Data.OleDb
Public Class Form1
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Try
            Dim dT As New DataTable
            Dim con As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=registro.accdb;Persist Security Info=False"
            Dim oCon As New OleDbConnection(con)
            Dim oDa As New OleDbDataAdapter("SELECT * FROM tablaregistro", oCon)
            oCon.Open()
            oDa.Fill(dT)
            oCon.Close()
            DataGridView1.DataSource = dT
 
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
 
    End Sub
End Class