Hola
Crea una conexión a BD y un recordset, en el recordset realizas la consulta tipo:
Código:
reg.Open "Select login, password from Tabla1 where usuarioWindows ='" & userwindows "'",bd, adOpenStatic, adLockReadOnly
Luego puedes pasar el resultado del Recordset a las variables.
Código:
Var1= reg.Fields(0)
Var2= reg.Fields(1)
--Saludos--