Господа обьясните как можно настроить свойства элемента Data для связи с таблицей Access в VB- коде, вот сам код, этот кусок у меня не работает.

Private Sub Form_Load()
ModeAdd = False
ModeEdit = False
'Закрыть текстовые поля для редактирования,
'очистить все текстовые поля
For i = 0 To 8
Text1(i).Text = ""
Text1(i).Enabled = False
Next

полное имя файла с базой данных:
strDBNameB = App.Path & "C:\Program Files\Car\CarB.mdb"
имя таблицы
cTblName = "SalonSale"
иницилизация свойств элемента DataSalonSale
Data1.DatabaseName = strDBNameB
Data1.RecordSource = cTblName
Data1.ReadOnly = False
оновление:
Data1.Refresh