Queste istruzioni mi lasciano perplesso:

codice:
Dim rs As New ADODB.Recordset
Lo sai, vero, che questa istruzione è per ADODB invece che ADO.NET ?
Perchè usi ADODB? Su quali motivazioni si basa la tua scelta?

codice:
Dim cmd As OdbcCommand = con.CreateCommand()
Continui ad aprire un command, ma per farne che?
Vorresti cortesemente spiegarcelo?

Concettualmente il codice è (almeno spero) giusto, però non funziona.
Purtroppo devo disilluderti: concettualmente il codice è tutto sballato.

A me sembri uno che sta scrivendo codice 'a caso' mescolando ingredienti VB6 e VB.NET con la speranza che 'il minestrone' diventi buono.
Ma sperare (come vedi) non risolve niente.

Francamente, il solo modo per aiutarti sarebbe quello di scriverti tutto il codice da zero, cosa che in un forum non ha senso, ma se anche fosse non lo capiresti.

Forse sarebbe il caso PRIMA di studiare un po' meglio la teoria, gli oggetti che vuoi usare (proprietà e metodi), e DOPO metterti a programmare.
Altrimenti... Buona arrampicata ->