Создание базы данных "Студент": как добавлять, удалять и редактировать записи - VB

Формулировка задачи:

Привет всем, нужна помощь в написании программки, которая использует базу данных... с созданием базы данных в visual basic я разобрался... а вот теперь подключить и добавить кнопки с добавлением новой записи, редактированием, удалением, поиском по базе данных...

                    Листинг программы
                
 
                        
                          
                    
Private Sub btnNew_Click()
Data1.Recordset.AddNew
End Sub
 
Private Sub btnDel_Click()
With Data1.Recordset
.Delete
.MoveNext
If .EOF Then .MoveLast    'когда удаляю все записи из БД, он мне выкидывает ошибку на эту строку, и не выводит то что база данных пуста'
If .BOF Then MsgBox "База данных пуста!"
End With
End Sub
 
Private Sub btnSearch_Click()
Data1.Recordset.FindFirst "database = '" _  'когда выходит поле с вводом имени, ввожу имя, жму ок, и выкидывает сюда'
& Trim(InputBox("Введите имя:")) & "'"
If Data1.Recordset.NoMatch Then MsgBox "Имя не найдено"
End Sub

Решение задачи: «Создание базы данных "Студент": как добавлять, удалять и редактировать записи»

textual
                            Листинг программы 
                        
 
                        
                          
                    
With Data1.Recordset
If .RecordCount = 0 Then
Exit Sub
Else
.Delete
.MoveNext
End With