RUN-TIME ERROR 3709

db.Open "Provider=MSDASQL;

Private Sub Timer1_Timer()
    On Error GoTo errConexao
        cnnBiblio.ConnectionString = "Provider=Microsoft.Jet.OLEDB.3.51;" & _
                                     "Data Source=" & App.Path & "\Biblio.mdb;"
        cnnBiblio.Open

        Unload Me
        frmBiblio.Show
    Exit Sub
errConexao:
With Err
    If .Number <> 0 Then
        MsgBox "Houve um erro na conexão com o banco de dados." & _
        vbCrLf & "O sistema será encerrado.", _
        vbCritical + vbOKOnly + vbApplicationModal, _
        "Erro na conexão"
        .Number = 0
Set cnnBiblio = Nothing
    End
    End If
End With
End Sub

Public Sub Conecta()
    Set cnn = New Connection
    cnn.Open "PROVIDER=MSDataShape;Data PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source='" & App.Path & "\BolOnLine.mdb';Jet OLEDB:Database Password=241000;"
    Set rs = New ADODB.Recordset
    rs.Open SqlTabela, cnn, adOpenKeyset, adLockOptimistic, adCmdText

End Sub

Private Sub Timer1_Timer()

Set cnnBiblio = New Connection
    cnnBiblio.Open "PROVIDER=MSDataShape;Data PROVIDER=Microsoft.Jet.OLEDB.4.0;" & _
                   "Data Source= '" & App.Path & "\biblio.mdb;'" & _
                   "Jet OLEDB:Database Password=241000;"
    'On Error GoTo errConexao
    '   cnnBiblio.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
    '                                "Data Source=" & App.Path & "\Biblio.mdb;"
        
    '   cnnBiblio.Open

        Unload Me
        frmBiblio.Show
    Exit Sub
errConexao:
With Err
    If .Number <> 0 Then
        MsgBox "Houve um erro na conexão com o banco de dados." & _
        vbCrLf & "O sistema será encerrado.", _
        vbCritical + vbOKOnly + vbApplicationModal, _
        "Erro na conexão"
        .Number = 0
Set cnnBiblio = Nothing
    End
    End If
End With
End Sub

[c]Private Sub Timer1_Timer()

Set cnnBiblio = New Connection
    cnnBiblio.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;" & _
                   "Data Source= '" & App.Path & "\biblio.mdb;'" & _
                   "Jet OLEDB:Database Password=241000;"
    'On Error GoTo errConexao
    '   cnnBiblio.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
    '                                "Data Source=" & App.Path & "\Biblio.mdb;"
       
    '   cnnBiblio.Open

        Unload Me
        frmBiblio.Show
    Exit Sub
errConexao:
With Err
    If .Number <> 0 Then
        MsgBox "Houve um erro na conexão com o banco de dados." & _
        vbCrLf & "O sistema será encerrado.", _
        vbCritical + vbOKOnly + vbApplicationModal, _
        "Erro na conexão"
        .Number = 0
Set cnnBiblio = Nothing
    End
    End If
End With
End Sub

Private Sub txtCodUsuario_LostFocus()
Dim cnnComando As New ADODB.Command
Dim rsSelecao As New ADODB.Recordset

    'On Error GoTo errSelecao
    'Verifica se foi digitado um código válido:
    If Val(txtCodUsuario.Text) = 0 Then
        MsgBox "Não foi digitado um código válido, verifique.", _
            vbExclamation + vbOKOnly + vbApplicationModal, "Erro"
        Exit Sub
    End If
    Screen.MousePointer = vbHourglass
    With cnnComando
        .ActiveConnection = cnnBiblio [txt-color=#ff0000]<<<<---DAQUI NÃO PASSA--->>>[/txt-color]
        .CommandType = adCmdText
        'Monta o comando SELECT para selecionar o registro na tabela:
        .CommandText = "SELECT * FROM Usuarios WHERE CodUsuario = " & _
            txtCodUsuario.Text & ";"
        Set rsSelecao = .Execute
    End With
    With rsSelecao
        If .EOF And .BOF Then
            'Se o recordset está vazio, não retornou registro com esse código:
            LimparDados
            'Identifica a operacao como Inclusão:
            vInclusao = True
        Else
            'Senão, atribui aos campos os dados do registro:
            txtNomeUsuario.Text = !NomeUsuario
            txtEndereco.Text = !Endereco
            txtCidade.Text = !Cidade
            txtEstado.Text = !Estado
            txtCEP.Text = !CEP
            txtTelefone.Text = Empty & !Telefone
            'Identifica a operacao como Alteração:
            vInclusao = False
            'Habilita o botão Excluir:
            Toolbar1.Buttons(3).Enabled = True
        End If
    End With
    'Desabilita a digitação do campo código:
    txtCodUsuario.Enabled = False
Saida:
    'Elimina o command e o recordset da memória:
    Set rsSelecao = Nothing
    Set cnnComando = Nothing
    Screen.MousePointer = vbDefault
    Exit Sub
errSelecao:
    With Err
        If .Number <> 0 Then
            MsgBox "Houve um erro na recuperação do registro solicitado.", _
                vbExclamation + vbOKOnly + vbApplicationModal, "Aviso"
            .Number = 0
            GoTo Saida
        End If
    End With
End Sub

    With cnnComando
        .ActiveConnection = cnnBiblio '#ff0000'><<<<---DAQUI NÃO PASSA--->>>
        .CommandType = adCmdText
        'Monta o comando SELECT para selecionar o registro na tabela:
        .CommandText = "SELECT * FROM Usuarios WHERE CodUsuario = " & _
            txtCodUsuario.Text & ";"
        Set rsSelecao = .Execute
    End With

    rsSelecao.Open "SELECT * FROM Usuarios WHERE CodUsuario = " & _
            txtCodUsuario.Text, cnnBiblio, 3