Gabriel,
O seu codigo precisa de alguns ajustes para funcionar:
SQL = "SELECT Qualidade FROM LoginUsuario WHERE Usuário = TxtUsuarioTab"
como o TxtUsuarioTab esta dentro de aspas, ele não vai atribuir o valor o correto nesse caso seria:
SQL = "SELECT Qualidade FROM LoginUsuario WHERE Usuário = '" & TxtUsuarioTab & "'"
Assumindo que o campo usuário é TEXTO, é necessário que tenha aspas simples no SQL
Na terceira linha, tambem é necessário deixar o SQL fora de aspas, se não você não esta usando uma variavel e sim um valor, então basta tirar as aspas duplas e atribuir o resultado em um recordset
set rs = DoCmd.RunSQL (SQL)
Para obter o valor da query, precisa utilizar o recordset
txtverQualidade = rs("Qualidade")
Estou assumindo que o DoCmd ja foi declaro em algum momento e a conexão com o banco de dados ja foi feito, caso negativo é necessário criar esse objeto tambem.
Resumindo, o seu codigo ficaria:
Public Function verificarcação(txtverQualidade, txtverSegurança, TxtUsuarioTab, TxtSenhaTab)
TxtUsuarioTab = txtUsuario.Column(0)
TxtSenhaTab = txtUsuario.Column(1)
SQL = "SELECT Qualidade FROM LoginUsuario WHERE Usuário = '" & TxtUsuarioTab & "'"
set rs = DoCmd.RunSQL (SQL)
'receberá o resultado da consulta de qualidade
txtverQualidade = rs("Qualidade")
SQL = "SELECT Segurança FROM LoginUsuario WHERE Usuário = '" & TxtUsuarioTab & "'"
set rs = DoCmd.RunSQL (SQL)
'receberá o resultado da consulta de segurança
txtverSegurança = rs("Segurança")
End Function
