Ligar base de datos

[alexiscespedes]

Ok gracias avellaneda me funciona perfectamente lo de las fechas. Se me presenta un problema a la hora que cargo el archivo al combobox ya que me carga toda la linea completa y yo necesito que me cargue unicamente los vectores que deseo ver. Aqui les envio el codigo que tengo,

Public Function LIST() As String
Dim sLinea As String, sArchivo As String
Open ruta & "HISTORICO.txt" For Input As #1
LISTADO.Text = ""
Do While Not EOF(1)
Line Input #1, sLinea
LISTADO.AddItem CODIGO
Loop
Close #1
End Function

Yo necesito poder mostrar unicamente los campos que son necesarios como lo hago en un formulario de consulta, pero aqui no le puedo indicar que me ponga el vector(x) en una variable determinada. Gracias por su ayuda