vba query met variabelen

[manueld]

ik wil graag dat als een formulier geopend word er een vba code gestart word die voor mij uit systeemvariabelen gegevens haalt. die vervolgens opzoekt in de bijbehorende tabel, om daarna de desbetreffende record de info uit een andere kolom invuld in het formulier

het starten van de macro bij openen is geen probleem en het zoeken van systeem variabelen ook niet

ik kom er niet uit wie kan mij hierbij helpen


dit heb ik tot nog toe

Private Sub Form_Load()
'get username and computername and set variable
Dim EmployeeID As String

Dim computername As String


 EmployeeID = VBA.Environ("USERNAME")
 computername = VBA.Environ("COMPUTERNAME")



' fill in the form
txtEmployeeName = EmployeeID
txtWorkspaceName = "hiermoet de inhoud van een variabele komen welke het resultaat is van de query"
txtWorkspaceID = "hiermoet de inhoud van een variabele komen welke het resultaat is van de query"
txtEmployeeID = "hiermoet de inhoud van een variabele komen welke het resultaat is van de query"

End Sub

ik heb een formulier met een viertal velden.
txtWorkspaceName
txtWorkspaceID
txtEmployeeName
txtEmployeeID

ik heb een tabel dbo_tblEmployee
met de kolommen
EmpEmployeeName
EmpUserName
EmpStatus
EmpUserID
EmpStartDate
EmpID *

en een tabel dbo_pltblWorkSpace
met de kolommen
WorWorkSpace *
WorDescription
WorID *
WorComputerName

velden met een * zijn de velden met info die op het scherm moeten komen

 

[manueld]

strSQL = "SELECT dbo_tblEmployee.[EmpID]FROM dbo_tblEmployee WHERE (((dbo_tblEmployee.[EmpUserName])='" & username & "'));"
        Set rs = CurrentDb().OpenRecordset(strSQL, dbOpenDynaset, dbSeeChanges)
        txtEmployeeID = rs.Fields(0).Value