Get name Sheet (have char dot) by ADO

Question

I have this code:

Function GetNameSheetByADO(sFullName_FileExcel As String)
Dim oConn As Object, oCat As Object, tbl As Object
Dim sTemp As String, sResult As Str