Prgramacion vb

Sub CargaContactos(pathFile As String)
Dim SQL As String
Dim Dyna As Object
Dim NroDondr_aux As Long
Dim Fechdeob_aux, glosdeob_aux As String
Dim Datos As String
Dim Linea As String
Dim I AsInteger
Dim Valor As Variant
Dim Linea_Aux As String
Dim rcst As ADODB.Recordset
Dim Proceso As Boolean
Dim Idx As Integer
Dim Old_Linea As String
Dim Ruta_Datos As String
Dim PASO As BooleanDim FechaProceso As String
Dim NombreArchivo As String
'**************************
'Variables para el DELETE de los archivos CLI y BAT.
Dim RutaNomBAT As String
Dim RutaNomTXT As String'**************************

On Error GoTo ErrorCargaObservac

Screen.MousePointer = 11
AN_PROC.Visible = True
AN_PROC.Open App.Path & "\Filemove.avi"
AN_PROC.AutoPlay = True
Proceso =False
ESTABLECE_CONEXION_SQL

Set rcst = New ADODB.Recordset
rcst.CursorType = adOpenKeyset
rcst.LockType = adLockOptimistic
rcst.Open pathFile, StrConexion, , , adCmdTableProceso = True
Carga_Datos = False
VERSION = "1"

If MANUAL_O_FTP = "F" Then
Open Trim(App.Path & "\batcnc.bat") For Output As #1
Print #1, "@echo off"Print #1, "ECHO Use este proceso por lotes para ejecutar carga de datos. Presione CTRL-C para cancelar o"
Print #1, "ftp -s:" & App.Path & "\cnc_bat.txt"
RutaNomBAT =Trim(App.Path & "\batcnc.bat")
Close #1
End If

Do Until PASO
NOM_INI = "CNC"
Lb_Version.Caption = Format(VERSION, "000")
FechaProceso = Format(Med_Fecha(0).Text,"yyyymmdd")
NombreArchivo = NOM_INI & "-" + Format(VERSION, "000") & "." & FechaProceso
Ruta_Datos = App.Path & "\" & NOM_INI & "-" + Format(VERSION, "000") & "." & FechaProcesoIf MANUAL_O_FTP = "F" Then
Open Trim(App.Path & "\cnc_bat.txt") For Output As #1
Print #1, "open " & SERVIDOR_FTP
Print #1, USUARIO_FTP
Print #1,...