bueno estoy leeyendo datos txt y esta determiando por ";" tengo la opcion por "," sin embargo necesito leerla por ";"
alguien tiene una solucion 1 para ver como agrear un delimitador de lectura agregar el parametro que me falta
'---------------------------------
Public Function LeerTxt(Directorio As String) As ADODB.Recordset
Directorio = "C:\prueba\"
On Error GoTo ErrorFunction
Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
Dim cn As ADODB.Connection
Set cn = New ADODB.Connection
cn.Open "Driver={Microsoft Text Driver (*.txt; *.csv)};" & _
"Dbq=" & Directorio & ";" & _
"Extensions=asc,csv,tab,txt", "", ""
rs.Open "select * from [pruebapuntocoma#txt]", cn, adOpenStatic, adLockReadOnly, adCmdText
Set LeerTxt = rs
Set rs = Nothing
Set cn = Nothing
Exit Function
ErrorFunction:
MsgBox Err.Description, vbCritical
Err.Clear
End Function
'----------------------------------------------------------------
la aplicacion la veo en un datagrid y verifico deinmediato si esta correcto la lectura dividida por ";"
mi tecto es
c:/prueba/pruebapuntocoma.txt
12345;juan;perez;gonzalez
