strSQL = strSQL.Append("SELECT ")
strSQL = strSQL.Append("(CASE WHEN COUNT(*) > 0 THEN '" & bool.TrueString & "' ELSE '" & bool.FalseString & "' END) AS EXISTE ")
strSQL = strSQL.Append("FROM USUARIOS ")
strSQL = strSQL.Append("WHERE")
strSQL = strSQL.Append(" nombre_usuario = '" & usu.Text & "'")
strSQL = strSQL.Append(" AND password = '" & password.Text & "'")
Boolean.TryParse(Command.ExecuteScalar().ToString(), ByRef blnExiste)
if (blnExiste) Then
'El usuario existe
Else
'El usuario no existe
End If