veja esse exemplo:
https://msdn.microsoft.com/en-us/library/y3h4x385(v=vs.110).aspx?f=255&MSPPError=-2147217396&cs-save-lang=1&cs-lang=vb#code-snippet-2
Natan
