SoloCodigo

Ok, segun lo que te entiendo:

primero:

nom_usuario = textbox1 (fco)

data1.refresh
with data1.recorset
on error resume next 'para que no te de error si ya se encuentra en el primer registro
.movefirts
end with
while data1.recorset.eof = false
if data1.recorset!usuario=nom_usuario then
data2.refresh
with data2.recorset
on error resume next
.movefirts
end with
while data2.recorset.efo=false
if data2.recorset!cod_acc=data1.recorset!cod_acc Then
msgbox "TU RESULTADO"
data2.recorset.movelast
end if
data2.recorset.movenext
wend
data1.recorset.movelast
end if
data1.recorset.movenext
wend

espero te sirva, el data1 y el data2 son las 2 tablas que utilizas, tambien puedes crear variables data, con solo un control, eso optimizaria tu aplicacion. el llenado al combobox lo haces como dices, con un additem, tambien puedes validar los datos repetidos con la propiedd list(i) del combobox.suerte

Si la base de datos es grande, es más eficiente usar FindFirst

   dim varCod_acc_Usuario as variant
   dim recUSUARIOS as recordset
   dim recNIVEL as recordset

   ' obtener primero el cod_acc del usuario en la variable varCod_acc_Usuario
   '
   recNIVEL.MoveFirst
   recNIVEL.FindFirst "cod_acc = " & varCod_acc_Usuario
   If recNIVEL.NoMatch Then
      MsgBox "No hay nivel de acceso para este usuario"
   Else
      MsgBox "Tipo de acceso:" & recNIVEL("tipo_acc")
   End If

Si cod_acc es númerico no necesita comillas simples en:
   recNIVEL.FindFirst "tipo_acc = " & varCod_acc_Usuario

Pero si es tipo cadena de texto (string) si las necesita.
   recNIVEL.FindFirst "tipo_acc = '" & varCod_acc_Usuario & "'"