Finding String In Excel Using VB6 ADO - Return Column And Row

I am trying to use ADO via VB6 to find a specific input in row A of my excel sheet.

I then want it to return the Column and Row to me separately.

I have a code I already use for returning specific values from cells:

Code:
Function Look(ClosedWorkbookFullName As String, _
SheetName As String, RangeAddress As String) As Variant

Dim conn As Object, rs As Object, SQL As String
Set conn = CreateObject("ADODB.Connection")
Set rs = CreateObject("ADODB.Recordset")

[Code] ......

Now I want something like this I can use as a function, but it obviously needs tweaks.