riferimento ad un oggetto non impostato....... [vb net 2010 express]

[libraio]

Cerco di salvare dei dati in un database mdb vers 2003 ma anche se i riferimenti dentro il database sono giusti mi appare l'errore descritto nel allegato, vorrei sapere se a qualcuno viene un idea in merito, grazie.

Private Sub salva_immagine()
        'salva l'immagine
        Try


            If salvataggio = True Then
                If Frmprincipale.lingua.linguaggio = "italiano" Then
                    MsgBox("Attenzione l'immagine è gia' stata salvata.")
                Else
                    MsgBox("Beware the image is already 'been saved.")
                End If
                Exit Sub
            End If


            Dim stringaconn As String = "Provider=Microsoft.JET.OLEDB.4.0;Data Source=" & Frmprincipale.NomeDatabase
            cn.Open(stringaconn)


            rs.Open("immagini", cn, 3, 3)


            Dim recordnum As Integer


            If RN = False Then
                recordnum = rs.RecordCount
                recordnum = recordnum + 1
                RN = True
                RecNum = recordnum
            End If


            Dim nome_file As String = pbpiede.ImageLocation.ToString
            nome_file = estrai_nome(nome_file)
            Dim posizione As String = copia_immagine(pbpiede.ImageLocation, nome_file)


            rs.AddNew()
            rs("id2").Value = RecNum
            rs("percorso").Value = posizione
            rs.Update()


            Dim cont As Integer = immagini.Count
            ReDim Preserve immagini(cont + 1)
            immagini(cont + 1) = posizione
            posizioneimm = posizione


        Catch ex As Exception
            MsgBox("ERRORE/ERROR ...... " & ex.Message)
            cn = Nothing
            rs = Nothing
            'salvataggio = True
            Exit Sub
        End Try




        cn = Nothing
        rs = Nothing
        salvataggio = True
        MsgBox("Inserimento effettuato/Inserting made", vbOKOnly, "CONFERMA/CONFIRMATION")
        escludi_chiusura = False
        Button1.Enabled = True
        Button2.Enabled = True
        Button3.Enabled = True
        Button4.Enabled = True
    End Sub