Problema Com Sql De Login

[Guest - Magus -]

Bom pessoal já fiz refiz de tudo e simplesmente nunca valida a minha sql sempre diz que não está correto o usuário o que fazer?

Olha o código:

<% 'Conexão com o banco de dados

conexao="filedsn=Solucoes.dsn"

Set DB = Server.CreateObject("ADODB.Connection")

DB.Open conexao

login=(Request.QueryString("CodEmpresa"))

senha=(Request.QueryString("Senha1"))

set acesso=DB.Execute("SELECT * FROM TblEmpresa, TblSenha WHERE TblEmpresa.CodEmpresa = TblSenha.CodEmpresa AND Empresa='" & login & "' AND Senha1='" & senha & "' ")

' Caso os dados não estiverem corretos o usuário é enviado para a entrar.htm

if acesso.eof and acesso.bof then

Response.Redirect"negado.asp"

else

Session("login")=login

'Session("usuario")= acesso("usuario")

'Session("Email")= acesso("Email")

Session("login")= acesso("login")

'você pode colocar quais sessions você quiser aqui que o restante do site vai ler.

Response.Redirect"acesso.asp"

end if

DB.close

%>

[Guest - Magus -]

Valeu povo já consegui resolver...

Muito obrigado!