Accès à une base de données sous access

Bonjour,
Je me nomme Feno et je suis encore un débutant sur le programmation en visual basic.Net.
Je suis un étudiant en 2ème année en Informatique et je cale sur un sujet: c'est d'accéder à une base de données sous access
J'ai crée une petite base de donnée sur access 2010 et une formulaire pour que les données que j'ai créés soient affichés et après avoir taper les codes sources pour y accéder le boutton un message d'erreur apparaît me disant que "La référence d'objet n'est pas définie à une instance d'un objet" . le logiciel que j'utilise est le logiciel sharpDevelop. S'il vous plaît, est-ce que quelqu'un peut m'aider?voici le code:

' Crée par SharpDevelop.
' Utilisateur: Feno
' Date: 05/08/2016
' Heure: 03:42
'
' Pour changer ce modèle utiliser Outils | Options | Codage | Editer les en-têtes standards.
'
Imports System
Imports System.Data
Imports System.Data.OleDb
Imports Microsoft.VisualBasic

Public Partial Class MainForm
'Déclaration d'un objet Connection
Private MyConnexion As OleDbConnection

'Déclaration d'un objet Command
Private MyCommand As OleDbCommand

'Déclaration d'un objet DataReader
Private MyReader As OleDbDataReader

'Variable booléenne pour tester la lecture du DataReader
Private n As Boolean

Public Sub New()
' The Me.InitializeComponent call is required for Windows Forms designer support.
Me.InitializeComponent()

'
' TODO : Add constructor code after InitializeComponents
'
End Sub
Sub MainFormLoad(Byval sender As Object,ByVal e As EventArgs)
'Instanciation de la connexion avec indication du provider et de la basee de données source
MyConnexion = New OleDbConnection ("Provider= Microsoft.Jet.ODBC.4.0;Data Source=" & _
"C:\Users\Feno\Documents\Bd.mdb")

'Ouverture de la Connexion
MyConnexion.open()

'Instanciation de l'objet MyCommand
Mycommand = MyConnexion.CreateCommand()

'Configuration de MyCommand pour contenir la bonne requête SQL
Mycommand.CommandText = "SELECT * FROM PROD;"

'Création de MyReader
MyReader = Mycommand.ExecuteReader()
'Chargement du premier enregistrement dans MyReader
'n = false s'il n'y a pas d'enregistrement
n = MyReader.Read()

'Remplissage des TextBox du formulaire par les contenus de MyReader si celui-ci n'est pas NULL
If n Then
t1.Text = MyReader(0)
t2.Text = MyReader(1)
t3.Text = MyReader(2)
t4.Text = MyReader(3)
t5.Text = MyReader(4)
End If
End Sub

Sub Button1Click(ByVal sender As Object, ByVal e As EventArgs)
If MyReader.Read() Then
t1.Text = MyReader(0)
t2.Text = MyReader(1)
t3.Text = MyReader(2)
t4.Text = MyReader(3)
t5.Text = MyReader(4)
Else
msgbox ("C'est le dernier enregistrement, OK pour fermer")
MyReader.Close
MyConnexion.Close
Application.Exit
End If
End Sub
End Class


Merci déjà de votre aide!!!!!