esta seria una mejor forma
creamos una funcion para agregar causas
public function nuevacausa()
dim fCausa as form
set fCausa = New 'Aqui el nombre del formulario que queres que aparesca es decir el formulario para rellenar los datos'
fCausa.show
end function
es todo!

asi es mejor