Ok, ahora que mencionas que utilizas MySql tendras que cambiar algunas cosas de las que te puse, por ejemplo:
Código vb:
Ver original'SQL Server
objConn As SqlConnection
cmd = New System.Data.SqlClient.SqlCommand()
'MySql
objConn As MySql.Data.MySqlClient.MySqlConnection
cmd = New MySql.Data.MySqlClient.MySqlCommand()
Esto porque la tanto la función como el método que te puse son para Sql Server.