Один и тот же рекордсет - но работает по разному.
В чем причина ? Cм. текст ниже.


cn.CursorLocation = adUseClient
cn.Open "Driver={Microsoft Visual FoxPro Driver}; SourceType=DBF; SourceDB=c:\0street"


------ ДОБАВЛЕНИЕ ---------
Private Sub Command8_Click()
rs.AddNew
rs.Fields("STREET") = 123
rs.Fields("name") = "НОВАЯ ЗАПИСЬ УЛИЦА"
rs.Fields("deleted") = 1
rs.Update

в Варианте 2 - сообщение об ошибке - Record set not support update

End Sub






Вариант 1
'------- Через рекордсет: ДОБАВЛЕНИЕ РАБОТАЕТ-------------------------------
rs.LockType = adLockOptimistic
rs.CursorType = adOpenKeyset
aaa_ = "SELECT * FROM streets"
rs.Source = aaa_
rs.ActiveConnection = cn
rs.Open
Set DataGrid1.DataSource = rs
'-------------------------------



Вариант 2
'--------- через command ДОБАВЛЕНИЕ НЕ РАБОТАЕТ -----------
Set Cmd.ActiveConnection = cn
Cmd.CommandText = "SELECT * FROM streets"
Cmd.CommandType = adCmdText
Set rs = Cmd.Execute
Set DataGrid1.DataSource = rs
'--------- через command -----------