So much things to say here.....
1. You do not need to use DAO here to open a recordset and pass the value from your query (currentLoggedOnQry). I can fix your initial code but, as I said doing this is unnecessary.
2. You can simply use.
Dim strSQL As String
strSQL = "INSERT INTO UserLogTbl...