RECORRER 1DOC DE TEXTO E INSERTAR EN 1DATAGRID

RAFA
31 de Octubre del 2003
ESO ES LO Q QIERO,RECORRER TODAS LAS FILAS DE 1DOC DE TEXTO E INSERTARLO EN 1DATAGRID.
TENGO HECHO ALGO PERO NO SE PQ CASCA.
Open "C:Mis documentosRafaProductos sin codigo de barrasprueba1.txt" For Input As #numero
numero = FreeFile

Do While Not EOF(numero)

codigo = Input(5, numero)
descripcion = Input(30, numero)
salto = Chr(13)

Adodc1.Recordset.AddNew

DataGrid1.Columns(0).Value = codigo
DataGrid1.Columns(1).Value = descripcion

Adodc1.Recordset.MoveNext
Loop

LA PRIMERA FILA ME LA INSERTA SIN PROBLEMAS,ES AL CAMBIAR DE LINEA Q CREO Q NO LO ACE BIEN O ALGO ASI.
GRACIAS DE ANTEMANO