Не работает код без среды VB

Почему не работает программа без среды VB?

'References
'Microsoft ActiveX Data Objects 2.7 Library

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

strDB="C:\DB.mdb"

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

strSQL = "SELECT ID,D FROM [tblCustomer]"
strF = "C:\File.dat"
DB.Close
Set DB = Nothing
With RSado
If .State = adStateOpen Then
.Close
Else
.Open strSQL, CN, adOpenStatic, adLockOptimistic, adCmdText
.Save strF
End If
End With
RSado.Close
Set RSado = Nothing
End Sub


Данные:
DB.mdb - формат Access 97
OC клиента - XP SP2
Программа инсталирована на комп. клиента мастером - PDWizard

Задача:
Сохранить данные базы данных из таблицы - tblCustomer, в файл - File.dat

Проблема:
Код работает, если установлен VB6.0 на машине клиента. Если нет среды VB, то - ERROR!