MySQL - MySQL Stored Procedures

Hola a Todos Chicos!!
Soy nueva en esta herramienta, Tengo el MySQL 5 y VB 6.0
Estoy tratando de crear SP para las aplicaciones de mi Sistema
Pero no me lo permite... me desconoce las instrucciones que van a al BD.

Que me puede faltar ?.... Ayuda please no sean malitos.

Aqui te dejo un ejemplo de como crear uno:

DELIMITER $$;

DROP PROCEDURE IF EXISTS `bdolva`.`sp_ManteCliente`$$

CREATE DEFINER=`root`@`localhost` PROCEDURE `sp_ManteCliente`(vm char(1),vt char(1),vCodigo varchar(6),vDireccion varchar(50)
,vUbigeo varchar(6),vTelefono varchar(15),vCelular varchar(15),vEMail varchar(50),vActivo char(1)
,vDNI char(8),vApellidos varchar(50),vNombres varchar(50),vNombreCompleto varchar(90)
,vECivil varchar(15),vRUC varchar(15),vRazonSocial varchar(50),vPagWeb varchar(50))
BEGIN
if vm='N' then
Insert Into tbcliente
Values(vCodigo,vDireccion,vUbigeo,vTelefono,vCelular,vEMail,vActivo);
if vt='N' then
Insert Into tbcnatural
values(vDNI,vApellidos,vNombres,vNombreCompleto ,vECivil,vActivo);
end if;
if vt='J' then
Insert Into tbcjuridico
Values(vRUC,vRazonSocial,vPagWeb,vActivo);
end if;
end if;
if vm='M' then
Update tbcliente
Set Direccion=vDireccion,Ubigeo=vUbigeo,Telefono=vTelefono,Celular=vCelular,EMail=vEMail
,Activo=vActivo
Where Codigo=vCodigo;
if vt='N' then
Update tbcnatural
Set DNI=vDNI,Apellidos=vApellidos,Nombres=vNombres,NombreCompleto=vNombreCompleto
,ECivil=vECivil
Where CodCliente=vCodigo;
end if;
if vt='J' then
Update tbcjuridico
Set RUC=vRUC,RazonSocial=vRazonSocial,PagWeb=vPagWeb
Where CodCliente=vCodigo;
end if;
end if;
if vm='E' then
Delete From tbcliente
Where CodCliente=vCodigo;
end if;
END$$

DELIMITER ;$$

Espero q te sriva de algo....Charlie Slipknot