Visual Basic - Mandar Fax

Hola.He desarrollado un aaplicacion en VB6 para mandar fax, ayudandome del servicio de fax de windows XP.El siguiente procedimiento es llamado desde otra funcion que recorre un recordset con los datos de los documentos que mando:

Public Sub EnviarFax(rsCliente As ADODB.Recordset, strNombrePDF As String)

Dim FaxDoc As New FAXCOMEXLib.FaxDocument
Dim FechaHora As String


FaxDoc.DocumentName = strNombrePDF 'nombre completo del pdf
FaxDoc.Body = strNombrePDF 'se adjunta el pdf
FaxDoc.ScheduleType = fstSPECIFIC_TIME
FaxDoc.Subject = "Fax Diario"
FechaHora=Format(Fecha, "dd/mm/yyyy") & " " & Format(Hora, "hh:mm:ss")

FaxDoc.ScheduleTime = CDate(FechaHora) 'especifico fia y hora
FaxDoc.Priority = fptHIGH

FaxDoc.Recipients.Add IIf(IsNull(rsCliente!fax) Or _
Not IsNumeric(rsCliente!fax), 0, rsCliente!fax), rsCliente!nombre

FaxDoc.Submit ""

Set FaxDoc = Nothing

end sub

cuando se llama por primera vez el fax es propuesto en la consola de fax esperando a ser mandado , pero pcuando el recodrset tiene mas de un registro la aplicacion no me responde y tengo que finalizar tarea.

Si me podeis dar algún consejo os lo agradecería.Gracias

Saludos