Здраствуйте! у меня проблема, пытаюсь прописать путь к базе данных Access 97 офиса, но он не принимает такого! вот текст:

Private Sub File1_Click()
sf = File1.Path & " \ " & File1.FileName

Dim CD As CommonDlg
Set CD = New CommonDlg
CD.CancelError = True
CD.Filter = "база данных|*.mdb|Все файлы|*.*"
CD.DialogTitle = "Выбор файла"
CD.InitDir = App.Path
CD.CancelError = True
CD.ShowOpen
If CD.FileName = "" Then Exit Sub

Dim db As Connection
Set db = New Connection
db.CursorLocation = adUseClient
db.open "PROVIDER=MSDataShape;Data PROVIDER=Microsoft.Jet.OLEDB.3.51;Data Source=CD.FileName"
Set adoPrimaryRS = New Recordset
adoPrimaryRS.open "SHAPE {select Фамилия,Имя,Отчество,код from Таблица1} AS ParentCMD APPEND ({select [Дата рождения],Возраст,Адрес,Должность,ИНН,[кол-во иждевенцев],[номер договора],[стаж работы(лет)],код from Таблица1 } AS ChildCMD RELATE код TO код) AS ChildCMD", db, adOpenStatic, adLockOptimistic
Dim oText As TextBox
For Each oText In Me.txtFields
Set oText.DataSource = adoPrimaryRS
Next
Set grdDataGrid.DataSource = adoPrimaryRS("ChildCMD").UnderlyingValue
mbDataChanged = False
End Sub


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

Попробовал, теперь пишет "Run-time error'-2147217904(80040e10)' отсутствует значение для одного или нескольких параметров.

adoPrimaryRS.open "SHAPE {select Ôàìèëèÿ,Èìÿ,Îò÷åñòâî,êîä from Òàáëèöà1} AS ParentCMD APPEND ({select [Äàòà ðîæäåíèÿ],Âîçðàñò,Àäðåñ,Äîëæíîñòü,ÈÍÍ,[êîë-âî èæäåâåíöåâ],[íîìåð äîãîâîðà],[ñòàæ ðàáîòû(ëåò)],êîä from Òàáëèöà1 } AS ChildCMD RELATE êîä TO êîä) AS ChildCMD", db, adOpenStatic, adLockOptimistic вот в этой строке теперь ошибка =(((

gjghjc Спасибо, я разобрался)