ayuda con dat grid

[cocoman501]

estimados amigos.... estoy mostrando los datos en un archivo plano en un datagrid en vb6..

esto es mi codigo de llenado de texto
Public Function LeerTxt(Directorio As String) As ADODB.Recordset

Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
Dim cn As ADODB.Connection
Set cn = New ADODB.Connection
Dim Columna As Integer


cn.Open "DRIVER={Microsoft Text Driver (*.txt; *.csv)};" & _
"DBQ=" & Directorio & ";", "", ""

rs.Open "select * from [entidades#txt]", cn, adOpenStatic, adLockReadOnly, adCmdText
Set LeerTxt = rs
'Call txt(KeyAscii)
Set rs = Nothing
Set cn = Nothing
End Function


el problema esta q una toda una fila me bota en una sola coluna....
ya q en mis txt esta separado x un limitador
[IMG]C:\Documents and Settings\Prac-DNCN\Escritorio\dibujo[/IMG]


como lo puedo separar x medio de ese limitaor