OK, No idea if this is the "right" way to do it, but it will work...
Sub FLogin(tablename, user, computer, InOut, type)
Dim rslogin As DAO.Recordset
Dim iUserField as integer, iComputerField as integer, iInOutField as integer
Set rslogin = CurrentDb.OpenRecordset(tablename, dbOpenDynaset)
For...