got there eventually
sub goes like
Private Sub Login_Click()
Password = DLookup("[password]", "tblUsers", "[Username]='" & usercombo.Column(1) & "'")
If Password = txtPassword Then
isDirector = DLookup("[isDirector]", "tblUsers", "[Username]='" & usercombo.Column(1) & "'")...