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.
