Evitar que desde un botón se abra varias veces el mismo form

[xknown]

No hace lo que debería hacer, porque estás utilizando otra instancia, tu código debería ser más o menos así:

Código:

Dim frmSeleccion As Form4 = CType(AbrirVentana(GetType(Form4)), Form4)
frmSeleccion.sql = "select idejercicio,nombre,finalidad from Ejercicios"
frmSeleccion.tabla="Ejercicios"
frmSeleccion.Show

Saludos