TXT determinado por ";"

[zeroyevi]

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