CDO.Message AddAttachment

Hola grupo, un favor, eh estado intentando enviar un archivo adjunto usando
servidor SMTP pero no envia, este es el código que estoy usando:
Dim oMsg = Server.CreateObject("CDO.Message")
Dim iConf = Server.CreateObject("CDO.Configuration")
Dim Flds = iConf.Fields
Const ConfigNamespace As String = _
"http://schemas.microsoft.com/cdo/co...ion/"
' Se configuran los parametros necesarios para el envío
iConf.Fields.Item(ConfigNamespace & "sendusing") = 1
iConf.Fields.Item(ConfigNamespace & "smtpserver") = "mis servidor
smtp"
iConf.Fields.Item(ConfigNamespace & "smtpconnectiontimeout") = 10
iConf.Fields.Item(ConfigNamespace & "smtpserverport") = 25
' Se completan los datos del usuario y la contraseña necesarios para
el envio
iConf.Fields.Item(ConfigNamespace & "sendusername") =
Request(miMail.Usuario) 'usuario smtp
iConf.Fields.Item(ConfigNamespace & "sendpassword") =
Request(miMail.Pass) 'password para STMP
iConf.Fields.Update()
' Se asignan las propiedades de configuración al objeto
oMsg.Configuration = iConf
oMsg.From = miMail.De
' TODO: Replace with recipient e-mail address.
oMsg.To = miMail.Para
If miMail.CC <> "" Then
oMsg.CC = miMail.CC
End If
If miMail.CCO <> "" Then
oMsg.Bcc = miMail.CCO
End If

oMsg.Subject = miMail.Asunto
Dim Archivo As HtmlInputFile = CType(FindControl("Archivo"),
HtmlInputFile)
If Archivo.Value <> "" Then
sAtach = Path.GetFullPath(Archivo.PostedFile.FileName)
'sAtach = Replace(sAtach, "", "")
'oMsg.AddAttachment(sAtach)
oMsg.AddAttachment(sAtach, "%3A", "%253A")
End If
oMsg.HTMLBody = miMail.Mensaje
Dim jError As String = ""
Try
oMsg.Send()
jError = "OK"
Catch ex As Exception
jError = "ERROR: " & ex.Message
Finally
If jError = "OK" Then
enviarMail = True
Else
enviarMail = False
End If
oMsg = Nothing
iConf = Nothing
Flds = Nothing
End Try

si es envio de solo mail sin archivo adjunto todo ok envia.
Alguien tuvo este problema que no pueda enviar archivo adjunto?
estoy usando vb.net y framework 2.0

Salu2


Jorge