b Nex_Click (). MoveNextrs.EOF=True Then.MoveFirst
TextBox1.Value=rs! [ID_робітніка]
TextBox2.Value=rs! [ПІБ_робітніка]
TextBox3.Value=rs! [Посада]
TextBox4.Value=rs! [Адреси]
TextBox5.Value=rs! [Мобільній_телефон]
TextBox6.Value=rs! [Зарплата]
End IfSubSub Prev_Click (). MovePrevious
If rs.BOF=True Then
rs.MoveLast
Else
TextBox1.Value=rs! [ID_робітніка]
TextBox2.Value=rs! [ПІБ_робітніка]
TextBox3.Value=rs! [Посада]
TextBox4.Value=rs! [Адреси]
TextBox5.Value=rs! [Мобільній_телефон]
TextBox6.Value=rs! [Зарплата]
End IfSubSub dod_Click () rs=CreateObject ( ADODB.Recordset )
rs.CursorType=adOpenKeyset
rs.LockType=adLockOptimistic
rs.Open SELECT * FROM Кадрі raquo ;, cn
rs.AddNew
rs.Fields ( ID_робітніка )=TextBox1
rs.Fields ( ПІБ_робітніка )=TextBox2
rs.Fields ( Посада )=TextBox3
rs.Fields ( Адреси )=TextBox4
rs.Fields ( Мобільній_телефон )=TextBox5
rs.Fields ( Зарплата )=TextBox6
rs.UpdateSubSub Del_Click (). delete.Value= .Value= .Value= .Value= .Value= .Value= laquo ; SubSub UserForm_Click () Sub
