me corrió perfectamente... con estos parámetros
Código:
Dim Admintool As String
Dim txt_week As String
Admintool = "hola"
txt_week = "hola2"
Me.TextBox1.Text = " SELECT distinct(signature), department.name dept " & _
" From personnel, Department " & _
" Where dept_id = Department.id " & _
" AND department.name like '" & Admintool & "%' " & _
" AND active = 1 " & _
" AND signature not in ( SELECT distinct(signature) " & _
" From current_daily_entry, Department " & _
" Where user_dept_id = Department.id " & _
" AND week_id = " & txt_week & " " & _
" aNd department.name like '" & Admintool & "%' " & _
" and completed = 1 ) " & _
" ORDER BY signature "