Ajuda No Erro: A Conexão Não Pode Ser Usada Para Realizar Essa Operaçã

[Guest --frostlost --]

modules

Public conn As New ADODB.Connection
Public rec As New ADODB.Recordset
Public cmd As New ADODB.Command
Public sdate As String
Public sup As String

Public Sub main()
    conn.ConnectionString = "provider=microsoft.jet.oledb.4.0;persist security info = false; data source = " & App.Path & "\bd1.mbd"
    conn.Open
    cmd.ActiveConnection = conn
    frmLoguinAdm.Show
End Sub

--------------------------------------------------------------------------- Esse é o do form loguin

Private Sub cmdOk_Click()
 Dim sql As String
    sql = "select * from senhaAdministrador"
    If rec.State > 0 Then rec.Close
    rec.Open sql, conn, adOpenDynamic, adLockOptimistic
    If (txtUsuario.Text = rec.Fields(0)) And (txtSenha.Text = rec.Fields(1)) Then
        txtUsuario.Text = ""
        txtSenha.Text = ""
        Unload Me
        frmDetalhesClientes.Show
    Else
        MsgBox "Usuário/Senha inválidas !!", vbCritical
        txtSenha.Text = ""
        txtUsuario.Text = ""
        txtUsuario.SetFocus
        SendKeys "{Home}+{End}"
    End If
End Sub

está mostrando o erro nessa linha do form loguin (rec.Open sql, conn, adOpenDynamic, adLockOptimistic) e está dizendo o seguinte erro:

"A conexão não pode ser usada para realizar essa operação! ela está fechada ou é invalida neste contexto!!)

Editado Novembro 18, 2007 por kuroi
tag CODE

[kuroi]

o seu projeto realmente ta como startup na Sub Main ou ele ta como startup no form de Login?? se tiver no form então ele não vai passar na sub main e não vai abrir a conexao.

outra coisa, esse codigo q você passou do Login é o codigo todo do formulario?? por acaso você não tem la outra variavel declarada com o nome de conn não?? porque ai ele vai pensar q você ta tentando passar essa varaivel e não a do module.