Удаление записи из dbf-файла в ADO. Query too complex

row_pos = Me.MSHFlexGrid1.RowSel
Personal_data.Recordset.move row_pos, 1
Personal_data.Recordset.Delete

cn.ConnectionString = 'DSN=dBASE files;Mode=Read|Write;DBQ=c:FOXING;DefaultDir=c:FOXING;DriverId=21;FIL=dBase III;MaxBufferSize=512;PageTimeout=5'
cn.Open

Personal_data.Recordset.Update

Private Sub cmdExit_Click()
    'Set frmDelTable = Nothing
    Unload Me
End Sub
 
Private Sub Form_Load()
    Dim ent_table_name As String, all_table_name As String
    ent_table_name = Left(frmMain.application_cfg.GetValue('txtEnteringTableRegistr'), Len(frmMain.application_cfg.GetValue('txtEnteringTableRegistr')) - 4)
    all_table_name = Left(frmMain.application_cfg.GetValue('txtCommonTable'), Len(frmMain.application_cfg.GetValue('txtCommonTable')) - 4)
    AdodcDel.ConnectionString = 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' & App.Path & ';Extended Properties=DBase IV'
    AdodcDel.RecordSource = 'Select * From ' & ent_table_name
    txtNRee.DataField = 'REE_NAME'
    txtDateRee.DataField = 'REE_DATE'
    cn_out.Open 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' & App.Path & ';Extended Properties=DBase III'
    rs_out.Open 'Select * from ' & all_table_name, cn_out, adOpenStatic, adLockOptimistic, adCmdText
End Sub
 
Private Sub cmdDel_Click()
    rs_out.MoveFirst
    MousePointer = vbHourglass
    Do Until rs_out.EOF
        If rs_out.Fields('N_REE') = txtNRee.Text Then
            rs_out.Delete
        End If
    rs_out.MoveNext
    Loop
    AdodcDel.Recordset.Delete
    AdodcDel.Recordset.MoveNext
    MousePointer = vbNormal
End Sub
 
Private Sub Form_Unload(Cancel As Integer)
    rs_out.Close
    cn_out.Close
    Set rs_out = Nothing
    Set cn_out = Nothing
End Sub

AdodcDel.ConnectionString = 'Provider=MSDASQL.1;Persist Security Info=False;Data Source=dBASE Files;Initial Catalog=' & App.Path