Sistema de Login em VB6 com banco de Dados access

Boa noite pessoal Sistema de Login em VB6 do Forum maximoaccess.
Estou tentar criar uma tela de login em visual basic 6 com a conexão Banco de Dados Access 2007 em formto mdb 2000.
Criei um módulo que contem as variáveis necessárias para trabalhar, mas ao longo do percurso deparei com os seguintes erros e gostaria que me ajudassem.

código do módulo
Public con As New ADODB.Connection ' Cria uma variavel para conectar com o banco

Public Function abrebanco()


Set con = New ADODB.Connection ' chama a variavel e faz com que ela inicie uma nova conexão
con.Open "dbq=" & App.Path & "\banco.mdb;driver={Microsoft Access Driver (*.mdb)}" ' mostra o caminho do banco
End Function

Public Function fechabanco()
con.Close ' fecha a conexão
End Function



Este é o código do botao entrar:
Private Sub Cmd_entrar_Click()
If txt_login.Text = "" Then ' Validação para que o campo Login não esteja vázio
MsgBox "digite o login"
txt_login.SetFocus
Exit Sub
End If
Set rs = con.Execute("select*from login where usuario='" & txt_login & "'") 'O erro se encontra ai.
If rs.EOF Then ' verifica a tabela a procura do login informado, caso for o correto passa para a proxima validação, caso contratio mostra msg de login invalido
MsgBox "login inválido"
txt_login.Text = ""
txt_senha.Text = ""
txt_login.SetFocus
Exit Sub
End If
id = rs("id") ' chave primaria da tabela
If rs("senha") = txt_senha.Text Then ' verifica a senha e caso for incorreta mostra a msg senha errada
mdi.Show
Unload Me
Else
MsgBox "senha incorreta"
txt_senha.Text = ""
txt_senha.SetFocus
End If
Set rs = Nothing ' termina a conexão
End Sub

Talvez funcione se você declarar o caminho do backend antes de usar o Execute:

Set rs = declare aqui o caminho
con.Execute "select*from login where usuario='" & txt_login & "'"

Olá boa tarde Criquio não consegui ir mais longe não sei onde declaro o caminho da base de Dados Espero receber uma resposta antecipadamente obrigado!

Boa noite Edmilson, tudo tranquilo.....
Você destacou a linha qua dá erro, certo....(amarelo) e onde o colega e amigão Criquio está alterando?????

Ele me disse que poderia da certo se eu definia o caminho no Set rs, e dpois con.Execute para poder selecionar a tabela de login no access.
O problema é que não tou conseguir. Mas tarde quando estiver em casa enviarei um anexo para deixar mas claro.

Qual a descrição do erro que aparece quando a linha do 'rs' fica grifada ?

Decide fazer um outro sistema de login.
criei dois módulos dois Command button dois TextBox e duas label. Crie um banco de dados em access 2003 onde tem dois campos (utilizador e senha).
Em visual basic adicionei dois módulo para declarar uma variável global para ser usada em todos os projecto 'a conexão é do tipo Adodb. este ai é primeiro módulo, o código utilizado é este: (Global base As New ADODB.Connection
Global Rsusuario As New ADODB.Connection). E no segundo Modulo contem o caminho para a conexão, (Sub main()
With base
.CursorLocation = adUseClient
.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\IE-Borba\Ambiente de trabalho\login em visual basic\usuarios.mdb;Persist Security Info=False"
frmlogin.Show
End With
End Sub

Sub usuarios()
With Rsusuario
If .State = 1 Then .Close
.Open "select * from senha", base, adOpenStatic, adLockPessimistic
End With
End Sub) Esse parênteses a itálico é para vocês não se confundirem!



Depois de ter declarado as variáveis comei a programar no botão acessar ou entrar.
só que depois de ter feito tudo executei o programa e surgiu-me o seguinte erro " Run-time error '3704': A operação não é permitida se o objecto estiver fechado". este é o erro que surgiu.
Mas quando eu não introduzo nenhum dado em textsenha ou txtusuario mostra as mensagens que declarei quando não é introduzido o nome ou senha correcto do utilizador. E quando ponho os dados que estão em base contidos em basede dados access o programa da-me erro que ja foi referido anteriormente.
O código do botão acessar é este:
(Private Sub CmdOk_Click()
If txtusuario.Text = "" Then MsgBox "Degite a sua senha de acesso", vbInformation, "aviso": txtusuario.SetFocus
If txtusuario.Text = "" Then MsgBox "Digite a sua senha", vbInformation, "Aviso": txtsenha.SetFocus: Exit Sub
With Rsusuario
.Requery
.Find "usuario = '" & Trim(txtusuario.Text) & "'"
If .EOF Then
MsgBox "Usuario Incorreto", vbInformation, "Aviso"
Exit Sub
Else
If senha = Trim(txtsenha.Text) Then
Principal.Show
Else
MsgBox "senha Incorreta", vbInformation, "Aviso"
Exit Sub
End If
End If
End With
End Sub

Este programa esta com erro em linha Requery aparece sublinhado amarelo.
Ficaria imenso grato se poderem me ajudar com esse problema antecipadamente

Atentamente
Edmilson da Graça