Private Sub BtnCargarGrid_Click(ByVal sender As System.Object _
                , ByVal e As System.EventArgs) Handles BtnCargarGrid.Click

        Dim cn As OleDbConnection
        Dim ds As Data.DataSet
        Dim da As OleDbDataAdapter
        Dim strConexion As String
        Dim Ssql As String

        strConexion = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=C:\NEPTUNO.MDB"
'asegurate q la base de datos se encuentr en esta ruta
        Try
            'Abrimos la conexión
            cn = New OleDbConnection(strConexion)
            cn.Open()
        Catch ex As Exception
            MessageBox.Show("Error al abrir la conexión:" & vbCrLf & ex.Message)
            Exit Sub
        End Try


        ds = New Data.DataSet

        Ssql = "Selec* form Clientes"

        da = New OleDbDataAdapter(Ssql, cn)

        Dim cmdBuilder As New OleDbCommandBuilder(da)
  
        'Cargamos el DataSet
        Try
            da.Fill(ds, "Clientes")
        Catch ex As Exception
            MessageBox.Show("Error al cargar el DataSet:" & vbCrLf & ex.Message)
        End Try

        DataGrid1.DataSource = ds.Tables("Clientes")

    End Sub