Hjælp til kode i hovedmodul

Hej
Jeg prøver at lære lidt om SQL og VBA i Access 2003 og har lånt en bog, skrevet af Poul Kimmel om VBA. Jeg har bestilt Access 2003 VBA Programmer's Reference, Beginning Access 2003 VBA og Beginning SQL. Er der nogen der vil anbefale noget yderligere? Jeg har også prøvet at eksperimentere lidt selv og er straks løbet ind i noget jeg ikke kan forstå, måske kan nogen hjælpe? Jeg har lavet en lille db og indsat nedenstående som virker:
Private Sub Tal_Enter()
    If Me.Tal = 5 Then
    MsgBox "sjov"
    ElseIf Me.Tal > 5 Then
    MsgBox "meget sjovt"
    Else
    MsgBox "trist"
    End If
End Sub

Men dette her, som er i et hovedmodul og indsat under hændelsen ”after update  =test() ”,  virker ikke rigtigt, der kommer kun en MsgBox frem med ”trist” uanset tallets størrelse, hvordan kan det være? Og hvorfor er den ene Sub og den anden Function?

Public Function Test()
    Dim cn As ADODB.Connection
    Dim rs As ADODB.Recordset
    Dim Tal As Single
    Set cn = CurrentProject.Connection
    Set rs = New ADODB.Recordset
        If Tal = 5 Then
        MsgBox "sjov"
        ElseIf Tal > 5 Then
        MsgBox "meget sjovt"
        Else
        MsgBox "trist"
        End If
 
    'rs.Close
    'cn.Close
   
    Set rs = Nothing
    Set cn = Nothing
   
End Function


MVH
Aase