El comando se llama "cn"
Dim cn As New MySql.Data.MySqlClient.MySqlCommand(sel, con)
Pero al adaptador le estas pasando "cm"
Dim da As New MySql.Data.MySqlClient.MySqlDataAdapter(cm)
Es un error de ortografía o puede ser este el error?
Saludos
nunca te acostarás sin saber una cosa más