gegevens ophalen vanuit andere combobox

[jo geuens]

hallo ik heb een code om een gebruiker in te loggen waarbij de gebruiker van de pc word gebruikt
nu wil ik in mijn formulier ook deze persoon zijn gegevens automatich maden maar dat lukt mij niet

dit gebruik ik tot nu toe:

Option Compare Database
Public sForm As String

Public Function FnUser()
FnUser = Environ("Username")
End Function

Public Function FnUserInt() As String
On Error GoTo GeenUser
Dim sUser As String

    sUser = FnUser()
    FnUserInt = DLookup("[Aanvrager]", "Gebruikers", "[UserLogonName] = '" & sUser & "'")

Exit Function

GeenUser:
strSQL = "INSERT INTO Gebruikers(UserLogonName,Aanvrager,Beveiliging) " & _
    "VALUES('" & sUser & "','" & sUser & "','v')"
DoCmd.RunSQL strSQL

FnUserInt = sUser


End Function

Public Function FnUserID() As String
On Error GoTo GeenUser

    FnUserID = DLookup("[UserLogonName]", "Gebruikers", "[UserLogonName] = '" & FnUser & "'")
    Exit Function

GeenUser:
FnUserID = "n.b."

End Function

Public Function FnUserSec() As String
On Error GoTo GeenUser

    FnUserSec = DLookup("[Beveiliging]", "Gebruikers", "[UserLogonName] = '" & FnUser & "'")
    Exit Function

GeenUser:
FnUserSec = "n.b."

End Function

hiermee word de gebruiker mee opgehaald

Private Sub Form_Load()



cboCurrentEmployee = FnUserInt ' hiermee komt de gebruiker ook in mijn formulier 

aanvrager = cboCurrentEmployee'  deze werkt niet om gebruiker naar cbo aavrager te zetten als ook het mail adress en tel: 
'deze haal ik nu als volgt op wanneer ik de gebruiker kies in de combobox aanvrager 

Private Sub aanvrager_Change()
Mail = aanvrager.Column(2)
telefoon = aanvrager.Column(3)



End Sub

kan iemand mij verder helpen ?