Help, Help, Help

:( Помогите пожалуйста разобратся с проблемой!

Программа проинсталированна на компьюторе клиента, который работает под OS XP.

В программе есть такой код:

'References:
'Microsoft ActiveX Data Objects 2.7 Library

Private Sub cmdOtch_Click()
Dim RSado As New ADODB.Recordset
Dim CN As String
Dim strF As String
Dim strSQL As String

CN = "User ID=;Password=;Data Source='" & strDBclt & "';Provider=Microsoft.Jet.OLEDB.3.51"

strSQL = "SELECT * FROM [tblАрхивНаклРознCLT] WHERE Дата BETWEEN " & pre_Date(datDateInit) & " And " & pre_Date(datDateFinal)
strF = "C:\Отчёт\OT" & Mid(CStr(datDateInit), 1, 2) & ".rst"
On Error GoTo errTBL
Me.cmdOtch.Enabled = False
Screen.MousePointer = vbHourglass
DBclt.Execute "DELETE * FROM [tblАрхивНаклРознCLT]"
DBclt.Execute "INSERT INTO [tblАрхивНаклРознCLT] SELECT * FROM [tblАрхивНаклРозн] IN '" & DB.Name & "'"
DBclt.Close
Set DBclt = Nothing
With RSado
If .State = adStateOpen Then
.Close
End If
.Open strSQL, CN, adOpenStatic, adLockOptimistic, adCmdText
Sav:
.Save strF
.Close
End With
Set RSado = Nothing
Screen.MousePointer = vbDefault
Unload Me
MsgBox LoadResString(5003) & vbLf & LoadResString(5004), vbInformation, LoadResString(5005) & datDateInit
End
Exit Sub

errTBL:
Screen.MousePointer = vbDefault
Select Case Err.Number
Case Is = 58
Kill strF
GoTo Sav
Case Is = -2147024893
MsgBox LoadResString(4020), vbExclamation, LoadResString(2)
Unload Me
Case Else
MsgBox Err.Number & " " & Err.Description, vbExclamation, " Ошибка"
End
End Select
End Sub


При нажатии кнопки - cmdOtch, формируется файл данных (ОТхх.rst) и отправляется в папку - C:\Отчёт

ПРОБЛЕМА:
===========

Всё работает хорошо, если только, на компе клиента установлен VB6, если не установлен, то
ошибка №3706 ("Не удаётся найти указанного поставщика. Вероятно, он установлен неправильно"):mad: