Uygulama Sınavı S-3

Sub soru3()
Dim rst As Recordset
Set db = CurrentDb
Set rst = db.OpenRecordset("Tablo1")
Top = 1
Do Until rst.EOF
Top = Top + 1
If rst.Fields("maaş").Value > rst.Fields("maaş").Value Then
enb = rst.Fields("maaş").Value
End If
If rst.Fields("maaş").Value < rst.Fields("maaş").Value Then
enk = rst.Fields("maaş").Value
End If
rst.MoveNext
Loop
MsgBox "En B=" & enb & Chr(13) & "En K=" & enk

End Sub