how to delete forwarding with vba script

Hello,

i have made a routine to set forwarding adress by script.
This is no Problem for me, but how can i delete the forwarding
is there a other attribut to set, because setting the attribut altRecipient
to nothing don´t
delete the forwarding.


set forwarding:

While Not RS.EOF
Set objUser = GetObject(RS.Fields("adspath"))
Dim Namew As String
Namew = RS2.Fields("adspath")
Namew = Replace(Namew, "Ldap://", "")
objUser.altRecipient = Namew
If copy = 0 Then
objUser.deliverAndRedirect = False
Else
objUser.deliverAndRedirect = True
End If
objUser.SetInfo

RS.MoveNext

delete forwarding: ??????????????????????????