Si manejas diversos tipos de usuarios, en tu tabla "tbl_usuarios" debes de tener un campo llamado "tipo_usuario".
Entonces te propongo cambiar tu instrucción sql por:
select usuario, contrasenia, tipousuario from tbl_usuarios where usuario='" & txt_usuario.Text & "' and contrasenia='" & txt_contrasenia.Text & "'"
y agregar otra restriccion aqui abajo
Código:
If txt_usuario.Text = fila!usuario And txt_contrasenia.Text = fila!contrasenia Then : Hide() : Opciones.Show() : txt_usuario.Text = "" : txt_contrasenia.Text = "" :
SELECT CASE fila!tipo_usuario
CASE 'A'
MsgBox "Administrador"
CASE ELSE
MsgBox "No Administrador"
End If