Soy novato en VBA, así que no me importa si la pregunta es de bajo nivel. Estoy tratando de ejecutar una consulta SQL donde los datos deben extraerse de una de las hojas del mismo libro.

SQL = "Select ProductNumber from [sData$] where ProductSource = " & pSource & "

'pSource is a string that stores Product Source
'sdata is a sheet named as Data in the workbook

dataPath = ThisWorkbook.Fullname

'Not sure if this is the value I shall send as datapath in getData function

Set rst = getData(dataPath,SQL)
rst.Open

La función getData se define a continuación

Public funtion getData(path as String, SQL as string) as ADODB.Recordset
Dim rs as ADODB.Recordset
Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset
cn.Open ("Provider= Microsoft.Jet.OLEDB.4.0;" & _
           "DataSource= " & path & ";"&_
            "Extended Properties=""Excel 8.0;HDR=Yes;FMT=Delimited;IMEX=1;""")
rs.ActiveConnection =cn
rs.Source= SQL
Set getData =rs
End Function

Ahora, después de obtener los números de la hoja de datos, necesito encontrar la ProductCompany correspondiente en la hoja de relaciones. 9 es para Amul, 5 es para Nestlé y así sucesivamente.

Relación:

No estoy seguro de cómo hacerlo. Los números corresponden a su respectiva compañía de productos en orden.