Si quieres mostrar un error en el caso ocurra un error debes manejar un Try Catch
Código vb.net:
Ver originalTry
EjecutaSQL(insertar)
MessageBox.Show("Registro grabado") 'Si ocurre un error nunca llegará a esta línea
Catch ex As Exception
MessageBox.Show("Ocurrió un error")
End Try
Espero te sirva
