run-rime error "3709"

[andrefeliperabelo]

oi pessoal estou iniciando em programaçao no vb 6, estou tentado fazer uma pequena aplicaçao mais não esta dando certo, pois da um erro de conexao com o banco de dados que e feito no acces 2003.

a mensagem exibida e a seguinte:

run-time error "3709" : a conexao não pode ser usada para este tipo de operaçao, ela esta fechada ou e invalida neste contexto.

a minha rotina e a seguite.

Sub main()

With base

.CursorLocation = adUseClient

.Open "provider=microsoft.jet.OLEDB.4.0;data source=" & App.Path & "\usuario.mdb; persist security info=false"

frmlogin.Show

End With

Sub usuario()

With Rsusuario

If .State = 1 Then .Close

.Open "select * from senha", base, adOpenStatic, adLockPessimistic

End With

End Sub

a linha em negrito e a onde esta qcontecendo o erro, se alguém souber como me ajudar muit obrigado.

[kuroi]

acho q ele não esta passando pela sub main e a conexao não esta sendo aberta.

seu projeto esta mesmo iniciando na sub main??