Aşağıdaki kodu modüle yaz

Public Function SplitVeriBul(GVeri As String, GSayi) As Variant

On Error Resume Next

Dim var As Variant

var = Split(GVeri, "|", -1)

SplitVeriBul = var(GSayi)

End Function

Sorguda, 

SELECT  SplitVeriBul([Alan1],0) AS ilksayi, SplitVeriBul([Alan1],1) AS ikincisayi, SplitVeriBul([Alan1],2) AS ucuncucisayi FROM Tablo1;

Tablo ismi Tablo1, tablodaki alanın ismi Alan1

Alan1'de 117|50|89|185|81 şeklinde veri olacak.