Using a button to scroll Up & Down a Database on a Userform
 

Hi Everyone
This macro takes me to the first entry on my database, i would like to be able
to scroll Up&Down with a button
Can anyone give me a macro to do that.
Any help would be very much appreciated.
Regards
John
Private Sub cmnbFirst_Click()
Dim FirstCl As Range
Set FirstCl = Range("a1").End(xlDown).Offset(1, 0)
With Me
.cmbAmend.Enabled = False
.cmbDelete.Enabled = False
.cmbAdd.Enabled = True
.TextBox1.Value = FirstCl.Value
.TextBox2.Value = FirstCl.Offset(0, 1).Value
.TextBox3.Value = FirstCl.Offset(0, 2).Value
.TextBox4.Value = FirstCl.Offset(0, 3).Value
.TextBox5.Value = FirstCl.Offset(0, 4).Value
End With
End Sub