Private Sub Form_Load() {Загрузкаформы}

Data1.Refresh

Data1.Recordset.MoveLast

Data1.Recordset.MoveFirst

End Sub

Форма 2

Private Sub Command1_Click() {Процедурадлякнопки «Поиск»}

Dim s As String

Dim i As Integer

s = InputBox("Телефон какой модели вы хотите найти ?", "Поиск")

Data1.Recordset.MoveFirst

If s = "" Then

MsgBox ("Вы нажали Отмену или ничего не ввели")

Exit Sub

End If

For i = 1 To Data1.Recordset.RecordCount

If Data1.Recordset.Fields(0) = s Then

Exit Sub

Else: Data1.Recordset.MoveNext

End If

Next i

MsgBox ("Даннойзаписинет")

Data1.Recordset.MoveFirst

End Sub

Private Sub Command3_Click() {Процедурадлякнопкипоодному»}

Form1.Show

Form2.Hide

End Sub

Private Sub Command4_Click(){Процедурадлякнопки «Выход»}

End