Ho visto solo ora che mi hai chiesto in quale riga è l'errore:

non è nel codice che vi ho postato ma è nel .vb di OledbConnection
codice:
 Friend Sub open()
        Throw New NotImplementedException()
    End Sub
e l'errore è il seguente:

System.NotImplementedException: 'The metod or operation is not implemented