Salve a tutti.
Ho istanziato la mia connessione al database all'interno della seguente sub:

codice:
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim PercorsoDB As String = "Data.mdb"
        Dim ConnString As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
           "Data Source=" & PercorsoDB
        Dim objCn As New OleDbConnection(ConnString)
        If objCn.State = ConnectionState.Open Then objCn.Close()

    End Sub
Dovrebbe essere istanziata quando il mio form proncipale viene caricato, giusto?

Allora, ad un bottone ho assegnato ciò che segue:

codice:
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        If objCn.State = ConnectionState.Open Then 'riga 217
            Dim strSql As String = "select * from Articoli"
            Dim objCmd As New OleDbCommand(strSql, objCn)
            Dim objDataReader As OleDbDataReader = objCmd.ExecuteReader

            objDataReader.Read()
...
...
...

        End If

    End Sub
Mi dice che objCn, alla riga 217, non è dichiarato...
E allora, come dovrei fare?
Vi ringrazio in anticipo.