Тесты по программированию

Если хочешь попрактиковаться попробуй помочь мне с моей проблемой вот ссылка:

Вот код всей программы(точнее половины программы, т.к. она ещё не завершена а только начата):
В коде есть ошибка, она описана в моем вопросе, ссылка выше.

Private Sub btnDel_Click()
With Data1.Recordset
.Delete
.MoveNext
If .EOF Then .MoveLast
If .BOF Then MsgBox "База данных пуста!"
End With
End Sub

Private Sub btnNew_Click()
Data1.Recordset.AddNew
End Sub

Private Sub btnSearch_Click()
Dim Table As Recordset
Set Table = Data1.Recordset
Table.Index = "AU_ID"
Dim F As String
F = Trim(InputBox("Введите ID"))
Table.Seek "=", F
End Sub

Private Sub btnUpdate_Click()
Data1.UpdateRecord
Data1.Recordset.Bookmark = Data1.Recordset.LastModified
End Sub

Private Sub Command1_Click()
On Error Resume Next
Data1.Recordset.MoveFirst
End Sub

Private Sub Command2_Click()
On Error Resume Next
Data1.Recordset.MovePrevious
End Sub

Private Sub Command3_Click()
On Error Resume Next
Data1.Recordset.MoveNext
End Sub

Private Sub Command4_Click()
On Error Resume Next
Data1.Recordset.MoveLast
End Sub

http://acm.timus.ru/

Интересная задачка: даны Мать..2 дочки...Отец..2 сына..Стражник..и заключенная...нужно переправить всех на другую сторону реки через плот..максимум переносящий 2 людей...мать не может оставаться с сыновьями и переправляться, отец с дочерьми, заключенная не может оставаться без стражника...вот!)