SoloCodigo

  Es un codigo muy tonto, no se porque llore tanto  

Esta es la solucion:

'En un modulo

Imports adodb

Module Module1
    Public con As New ADODB.Connection
    Public t As New ADODB.Recordset

    Public Sub Leer()
        con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\;Extended Properties='text;HDR=Yes;FMT=Delimited'"
        con.Open()
    End Sub

End Module

'En un Form con un combo


Imports ADODB

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Leer()

        t.ActiveConnection = con
        t.CursorType = CursorTypeEnum.adOpenKeyset
        t.LockType = LockTypeEnum.adLockOptimistic
        t.Open("select * from tabla.csv")

        While Not t.EOF
            ComboBox1.Items.Add(t.Fields(0).Value & "  " & t.Fields(1).Value)
            t.MoveNext()
        End While
        t.Close()

    End Sub

End Class


Caso Cerrado  
Ab.