С чего может вылетать VB?

[Andrev]

Написал прогу. Оттестил ее на всех доступных мне виндах. Работает. Начал ставить клиентам. У пяти работает. У шестого - запускается и вываливается без каких-либо сообщений. Ставлю ВБ, открываю исходник. Запускаю. ВБ вылетает без малейшего писка. Начинаю пошагово смотреть, в чем косяк. Резальтат:

Код: Выделить всё

Private Sub Form_Load()
Dim fso As New FileSystemObject, fl As File, dbf As New clsDBF
Dim i As Integer, tmp As String

Set cn = New ADODB.Connection
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.path & "\;Extended Properties=DBase IV"
Set rs = New ADODB.Recordset
rs.LockType = adLockOptimistic
rs.ActiveConnection = cn
rs.Open "select count(*) from newprice"


И вот на последней строчке - на открытии рекордсета ВБ вылетает. Просто закрывается. Без сообщений, без намеков на то, что у меня кривые руки. Винда - 2000 СП4. Никаких приблуд и наворотов. В чем может быть проблема? Кто-нить сталкивался?

[alibek]

Попробуй в запросе использовать заглавные буквы.
А вообще, скорее всего дело в DBF, для него провайдер всегда кривой был. Поищи на сайте провайдер OLEDB для FoxPro 9, он более-менее нормально с DBF работал.

[alibek]

Да, и LockOptimistic смени на LockReadOnly.