Dont know how to implement <--noobie

hi thx in advance BTW
firstly I'm trying to do a database for a fictional go-kart co. so I have 4 tables. Drivers, Teams, Circuit, Circuit Results.
iv used F1 sample data. this is what I'm trying to accomplish
a) The starting grid position of all drivers based on their qualification time.
b) The points awarded to drivers who finish in the top 8 positions.
I was told by tutor that VBA would be easyer to to get points awarded using this code but cant get it to work.
Option Compare Database
Option Explicit

Public Function Order(Rank As Integer) As Integer


Select Case Rank
Case Is = 1
Order = 10
Case Is = 2
Order = 8
Case Is = 3
Order = 6
Case Is = 4
Order = 5
Case Is = 5
Order = 4
Case Is = 6
Order = 3
Case Is = 7
Order = 2
Case Is = 8
Order = 1
Case Else
Order = 0
End Select

End Function

I think it has summit to do with the fact it don't point to any table it just seem sto me its the function. any help or advice would be really appreciated as Iv struggled with systems analysis and databases all year.

thx

J