Dim Delete As Integer
Delete = MsgBox("äàí àúä áèåç ùáøöåðê ìîçå÷ øùåîä æå?", vbYesNo, "îçé÷ú øùåîä")
        If Delete = vbYes Then
            If AdoImporters.Recordset.RecordCount > 0 Then
                AdoImporters.Recordset.Delete
                AdoImporters.Recordset.MoveNext
                If AdoImporters.Recordset.EOF = True Then
                    If AdoImporters.Recordset.RecordCount <> 0 Then
                        AdoImporters.Recordset.MoveFirst
                    End If
                End If
            End If
        End If