Creación de tablas en Access VB

Hola ... Estoy recién iniciándome en la programación en Visual Basic y tengo una problema cuando cargo datos a una tabla y es que siempre el primer campo de la primera fila esta en blanco. Te incluyo la codificación haber si me puedes ayudar. Gracias.
FileNum = FreeFile
Open "I:CUMST.ASC" For Input As FileNum
Set db = DBEngine.OpenDatabase(strNombreBDC)
Set tb_cus = db.OpenRecordset(strNombreTBC, dbOpenTable)
tb_cus.Index = "KeyCus"
Do While Not EOF(FileNum)
Input #FileNum, Recst, Cusnr, Cusnm, Poscd
Input #FileNum, Addr1, Addr2, Addr3, Cgc, IE, IM
Input #FileNum, Telnr, Clase, Cysav, Lysav, Arbal, Curam
Input #FileNum, Dispc, Reten, Crdst, Firnm, Cmsav, Cpsav, Cygpb
Input #FileNum, Cpgpb, Cmgpb
Input #FileNum, Lsadt
Input #FileNum, Cpgc, Promo
Input #FileNum, Nfini, Nffim, Vdupl, Unfdr, Rota, Pfterm
Input #FileNum, Cdimpm, Prinic, Prfimc, Tpaut, Ftaut
Input #FileNum, Ntger, Dislab, Slash
tb_cus.Seek "=", Cusnr
frmCargarC.txtCliente = Cusnr
If tb_cus.NoMatch Then
tb_cus.AddNew
tb_cus("Cuenta") = Cusnr
If Cusnm <> spaces$ Then tb_cus("Nombre") = Cusnm
If Addr1 <> spaces$ Then tb_cus("Direccion") = Addr1
tb_cus("SaldoActual") = Curam
tb_cus("SaldoCxC") = Arbal
If Clase <> spaces$ Then tb_cus("Clase") = Clase
If Poscd <> spaces$ Then tb_cus("Apartado") = Poscd
tb_cus.Update
Else
tb_cus.Edit
If Cusnm <> spaces$ Then tb_cus("Nombre") = Cusnm
If Addr1 <> spaces$ Then tb_cus("Direccion") = Addr1
tb_cus("SaldoActual") = Curam
tb_cus("SaldoCxC") = Arbal
If Clase <> spaces$ Then tb_cus("Clase") = Clase
If Poscd <> spaces$ Then tb_cus("Apartado") = Poscd
tb_cus.Update
End If
Loop
MsgBox ("Proceso Terminado")
End Sub