Private ws As Object
Private db As Object
Private rs As Object
Private Sub UserForm2_Initialize()
Set ws = DBEngine.Workspaces(0)
Set db = ws.OpenDatabase("C:\Users\Rov3r0\Desktop\student.accdb")
Set rs = db.OpenRecordset("Первый курс")
'Showrecord'
End Sub

Private Sub Showrecord()

With rs
txtName.Text = .Fields("Фамилия").Value
txtGroup.Text = .Fields("Группа").Value
txtSubject.Text = .Fields("Предмет").Value
txtMark.Text = .Fields("Оценка").Value
End With
End Sub

Private Sub cmdFirst_Click()
rs.MoveFirst
Showrecord
End Sub

Private Sub cmdLast_Click()
rs.MoveLast
Showrecord
End Sub
Private Sub cmdPrevious_Click()
rs.MovePrevious
If rs.BOF = True Then
rs.MoveFirst
MsgBox ("ÏåðâГ*Гї Г§Г*ГЇГЁГ±Гј")
End If
Showrecord
End Sub
Private Sub cmdNext_Click()
rs.MoveNext
If rs.EOF = True Then
rs.MoveLast
MsgBox ("ÏîñëåäГ*ГїГї Г§Г*ГЇГЁГ±Гј")
End If
Showrecord
End Sub

Private Sub cmdClose_Click()
rs.Close
db.Close
ws.Close
Unload Me
End Sub