Lo primero te recomiendo encarecidamente que actives la opcion Option Strict = On
Image may be NSFW.
Clik here to view.
Una vez hecho esto veras como en esta línea:
Dim da As New MySql.Data.MySqlClient.MySqlDataAdapter(cm)
aparece una línea azul ondulada debajo de la palabra cm.
"cm" no esta declarado porque el parámetro que espera el adaptador es el nombre del comando, en tu caso "cn"
Saludos
nunca te acostarás sin saber una cosa más
