Как открыть dbf-базу для записи, используя ADO?

Set oCN = New ADODB.Connection
Set oRS = New ADODB.Recordset
 
oCN.ConnectionString = 'Provider=MSDASQL.1;Persist Security Info=False;Mode=Read|Write;Data Source=dBASE Files;Initial Catalog=c:foxing'
oCN.Open
 
oRS.Open 'fio', oCN, adOpenStatic, adLockOptimistic
 
With oRS
.AddNew
oRS('fam') = 'QQQQQQ'
.Update
End With

Dim cn As adodb.Connection
Dim rs As adodb.Recordset
 
Private Sub Command1_Click()
 
rs.Open 'fio', cn, adOpenStatic, adLockOptimistic, adCmdTable
Set Me.MSHFlexGrid1.DataSource = rs
 
End Sub
 
Private Sub Command2_Click()
MsgBox rs.Supports(adAddNew)
 
rs.AddNew
rs('fam') = 'EEEYYY'
rs.Update
 
End Sub
 
Private Sub Form_Load()
 
Set cn = New adodb.Connection    'Открыть соединение с каталогом файлов *.DBF
cn.Open 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:foxing;Extended Properties=DBase IV'
Set rs = New Recordset
 
End Sub

oConn.Open 'Driver={Microsoft dBASE Driver (*.dbf)};' & _
                  'DriverID=277;' & _
                  'Dbq=c:somepath;'

Private oRS As ADODB.Recordset
Private oCN As ADODB.Connection
 
Private Sub Command1_Click()
oRS.Open 'uchzav', oCN, adOpenStatic, adLockOptimistic
MsgBox oRS.Supports(adDelete)
set Me.MSHFlexGrid1.DataSource = oRS
End Sub
 
Private Sub Command2_Click()
With oRS
  .AddNew
   oRS('naim') = 'WWWWWW'
  .Update
End With
End Sub
 
Private Sub Command3_Click()
oRS.Move 3, 1
oRS.Delete
End Sub
 
Private Sub Form_Load()
Set oCN = New ADODB.Connection
Set oRS = New ADODB.Recordset
 
oCN.ConnectionString = 'Provider=Microsoft.Jet.OLEDB.4.0;mode=read|write;Data Source= c:foxing ;Extended Properties=DBase III'
oCN.Open
 
End Sub