Não consigo encerrar conexão com o MySql no VB.NET

Boa tarde a todos, preciso de ajuda para resolver um problema grave que está acontecendo em minhas aplicações vb.net. Vou colocar abaixo o código:

O problema é o seguinte, através da sub Conectar eu consigo conectar-me ao mysql e realizar minhas transações, porêm não consigo encerrar esta conexão ao término da transação.

Muito obrigado!!

Private Sub conectar()
Try
cn = New MySql.Data.MySqlClient.MySqlConnection("server=localhost;user id=root;password=suasenha;database=seubd")
cn.Open()
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End Sub

Private Sub desconectar()
Try
cn.Close()
cn.Dispose()
cn =Nothing
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End Sub