Problemas VB6 + Excel + SQL

[overload 0]

Boa tarde !!!

 

Estou com um problema ao acessar uma planilha excel (via VB6) utilizando SQL.

Encontro o seguinte erro:

 

Err.Description = [Microsoft][Driver ODBC para Excel] Parâmetros insuficientes. Eram esperados 1.

Err.Number = -2147217904

 

O código é:

 

Set rstExcel_Rede = New ADODB.RecordsetrstExcel_Rede.CursorLocation = adUseClientrstExcel_Rede.CursorType = adOpenKeysetrstExcel_Rede.LockType = adLockBatchOptimistic*** AQUI GERA O ERRO ***rstExcel_Rede.Open "SELECT * FROM [plan1$] where NomeArqSAP = '" & rstExcel_SAP(0) & "'", _"DRIVER=Microsoft Excel Driver (*.xls);DBQ=" & DirBox_Comparacao_Rede.Path & "\" & Nome_Arquivo_Rede, adOpenDynamic

Pior de tudo é que eu tenho um código idêntico, no mesmo form e que funciona corretamente. http://forum.imasters.com.br/public/style_emoticons/default/upset.gif http://forum.imasters.com.br/public/style_emoticons/default/cry.gif

 

Alguem pode me ajudar?! ^_^

 

Abraços!!

[Luizgrs 0]

Esse NomeArqSAP é realmente o nome do campo?