ERRO 3709

MACKEY 31/05/2010 14:41:14
#343405

ola, estava fazendo um programa pra aprender a programar em vb, e copiei um da net pra refazer o meu conforme ele, mas de repente ele começou a dar um erro de banco de dados: run time error 3709, a conexao nao pode ser usada para realizar esta operaçao. ela esta fechada ou é invalida neste contexto.

segue o fonte caso alguem possa me ajudar, estava funcionando fiz algum as alteraçoes nos tamanhos dos forms e parou de funcionar.....

[ô]**********************
[ô]SENHA DO ADMINISTRADOR
[ô]**********************
Option Explicit
Public rec As New ADODB.Recordset
Dim sql As String
Public conn As New ADODB.Connection

Private Sub cmdCancelar_Click()
End
End Sub

Private Sub cmdOK_Click()
Dim sql As String
sql = [Ô]select * from UserPassword[Ô]
If rec.State > 0 Then rec.Close
rec.open sql, conn, adOpenDynamic, adLockOptimistic
If (txtnome.Text = rec.Fields(0)) And (txtsenha.Text = rec.Fields(1)) Then
txtsenha.Text = [Ô][Ô]
txtnome.Text = [Ô][Ô]
Unload Me
frmPrincipal.Show
Else
MsgBox [Ô]Usuário/Senha Inválido(s) !![Ô], vbCritical, [Ô]Compras/Vendas - Faturamento[Ô]
txtsenha.Text = [Ô][Ô]
txtnome.Text = [Ô][Ô]
txtnome.SetFocus
SendKeys [Ô]{Home}+{End}[Ô]
End If
End Sub

Private Sub cmdsair_Click()
End
End Sub


Private Sub txtnome_KeyPress(KeyAscii As MSForms.ReturnInteger)
If KeyAscii = 13 Then
txtsenha.SetFocus
End If
End Sub


Private Sub txtsenha_KeyPress(KeyAscii As MSForms.ReturnInteger)
If KeyAscii = 13 Then
cmdOK_Click
End If
End Sub