Eu sou novato no VBA, então, por favor, não se importe se a pergunta for de baixo nível. Estou tentando executar uma consulta SQL onde os dados devem ser extraídos de uma das folhas da mesma pasta de trabalho.

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

A função getData é definida como abaixo

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

Agora, depois de obter os números da folha de dados, preciso encontrar a ProductCompany correspondente na folha de relação. 9 é para Amul, 5 é para a Nestlé e assim por diante.

Relação:

Não tenho certeza de como fazer isso. Os números correspondem à respectiva empresa do produto em ordem.