Error de transporte en la conexión al servidor

[lreyesg007]

Hola, me sale el siguiente error "Error de transporte en la conexión al servidor"
y no se que es lo que hago mal
quiero mandar un mail... uso outlook 2000, y servidor excange 2000 en otro computador (ESCMILEXCH01), esta es la rutina :

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Dim MiPrimerCorreo As New MailMessage

'Se Indica la Dirección de correo que envia
MiPrimerCorreo.From = "PEPITO"

'Se Indica la Dirección de correo que recibira
MiPrimerCorreo.To = "JUANITO"

'Se Indica el Asunto del correo a enviar
MiPrimerCorreo.Subject = "PRUEBA DE CORREO"

'El Mensaje del Correo
MiPrimerCorreo.Body = "CUERPO DEL MAIL"

'establece el tipo de contenido del texto del mensaje de correo electrónico.

'MailFormat.Html o MailFormat.Text
MiPrimerCorreo.BodyFormat = MailFormat.Text

'Establece la prioridad del mensaje de correo electrónico
'MailPriority.High, MailPriority.Normal o MailPriority.Low

MiPrimerCorreo.Priority = MailPriority.Normal

'Establece el nombre del servidor de transmisión de correo SMTP
'que se va a utilizar para enviar los mensajes de correo electrónico.

SmtpMail.SmtpServer = "\\ESCMILEXCH01"

'Envía un mensaje de correo electrónico utilizando argumentos
'suministrados en las propiedades de la clase MailMessage.

SmtpMail.Send(MiPrimerCorreo)
End Sub

Gracias