Помогите средствами VBA решить задачу.

Нужно взять значение ячейки, и найти его в базе DBF.
Если такое значение существует, то возвратить адрес этого значения.

В какую сторону копать и так понятно.

Имеется таблица называется PE
есть столбец USR1002 в котором лежит нужная информация
и столбец Name в котором осуществляется поиск по значению

Нужно найти значение в Name, и получить соответствующее значение из столбца USR1002


Sub ConnectDBF()
Dim strSQL As String
Dim db As ADODB.Connection
Dim rs As String
Set db = New ADODB.Connection
db.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\actbase\;Extended Properties=dBASE IV"

Let strSQL = " SELECT USR1002 " _
& " FROM PE " _
& " WHERE Name = Арагон"

db.Execute (strSQL)
db.Close
End Sub


Когда запускаю вышеприведенный код выдается ошибка:
"Отсутствует значение для одного или нескольких параметров"

Подскажите, пожалуйста, где именно я ошибся.

точна, спасибо :)

Есть следующий код


Sub ConnectDBF()
Workbooks("Auto.xls").Worksheets("OpOtM").Activate

Dim strSQL As String
Dim sOutput As String
Dim Zapros As String
Dim db As ADODB.Connection
Dim Rs As ADODB.Recordset

Let Zapros = Cells(92, 3).Value
Let strSQL = " SELECT usr1002,usr1040, usr1034" _
& " FROM PE " _
& " WHERE company LIKE " & "'" & "%" & Zapros & "%" & "'"

Set db = New ADODB.Connection
'db.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\actbase\;Extended Properties=dBASE IV"
'db.Open "Driver={Microsoft dBASE Driver (*.dbf)};DriverID=277;Dbq=D:\actbase\;CollatingSequence=ansi"
db.Open "Driver={Microsoft dBASE Driver (*.dbf)};DriverID=277;Dbq=D:\actbase\"

Set Rs = New ADODB.Recordset
Rs.Open Source:=strSQL, ActiveConnection:=db
If Not (Rs.BOF Or Rs.EOF) Then
Let sOutput = Rs.Fields("USR1002").Value & ", " & Rs.Fields("USR1040").Value & ", " _
& Rs.Fields("USR1034").Value
Else
Let sOutput = 0
End If

Rs.Close
db.Close
MsgBox (sOutput)
Set db = Nothing
Set Rs = Nothing
End Sub


Программа проверялась со всеми закоментированными драйверами.
Проблема в том, что когда в запросе слово на кирилице программа ничего не находит, с латиницей проблем нет. Подскажите, что в данной ситуации можно сделать.

ffffffffffffffffffffffffЕсли файлы DBF формата FoxPro, лучше бесплатно скачать с сайта Microsoft последний VFP OLEDB Provider и работать сним.

Установил, стали понятными половина символов, оставшаяся половина все также не читабельна. База имеет кодировку 1251, в блокноте все можно прочитать. Может есть еще какие драйверы?

Слово "Транспорт" он распознает примерно так "Odанспоdт"

Попробовал все способы, ничего не помогло. Методы скорей всего правильные, это база у меня кривая очень.

Подскажите, пожалуйста, каким способом можно узнать, что за драйвер использует программа ACT! (build 5.0.3.423) для работы с этой базой.

Открывать в foxpro базу не пробовал, т.к. оной не имею, а установить что-нибудь дополнительное на рабочую машину проблематично. Вечером попробую открыть на домашней.
Открывал базу в access там были крякозебры, открывал в блокноте, там как раз-таки все нормально.
Открывал и импортировал в эксель, и так и так получались крякозябры только разного вида :)
Хозяева ACT! предлагают работать с их базой посредством их библиотек, собственно сейчас с ними и разбераюсь.

Проблема разрешилать после того, как в HEX редакторе 29-му байту было присвоено значение hex(57) (обозначение 1251)
Более подробная информация тут:
http://www.delphikingdom.com/asp/viewitem.asp?urlitem=/helloworld/dbheader.htm

После этого и аксес и JEt все увидели. Всем спасибо за поддержку и участие :)