PROBLEMA COM CONEXAO

sub Conexao()
Set cnn = New ADODB.Connection

    
On Error GoTo Erro_Drive

Set DriveF = Fs.GetDrive("F:\")
If Not DriveF.IsReady Then
    mdiInicio.txtConexao.Text = "Conexão Local"
    MsgBox "Atenção você não esta conectado na rede!", vbCritical, "Drive F"
    Fonte = App.Path & "\MedicalDados.mdb"
    cnn.CursorLocation = adUseServer
    With cnn
         .Provider = "Microsoft.Jet.OLEDB.4.0"
         .Properties("Data Source") = Fonte
         .Properties("Jet OLEDB:Database Password") = "1255"
         .Open
    End With
Else
    mdiInicio.txtConexao.Text = "Conectado Rede"
    Fonte = ("F:\Quick-Fonte\MedicalDados.mdb")
    cnn.CursorLocation = adUseClient
    With cnn
         .Provider = "Microsoft.Jet.OLEDB.4.0"
         .Properties("Data Source") = Fonte
         .Properties("Jet OLEDB:Database Password") = "info"
         .Open
    End With
End If
Exit Sub

Set Fs = Nothing

Erro_Drive:
    If Err.Number = 68 Then
        Resume Next
    ElseIf Err.Number = 91 Then
        Resume Next
    End If
End Sub

Sub Excluir_Horario
If MsgBox("Tem certeza que deseja excluir?", vbQuestion + vbYesNo) = vbNo Then Exit Sub

Set rst = New ADODB.Recordset
SQL = "select * from Agenda where Indice = '" & 
rst.Open SQL, cnn, adOpenKeyset, adLockOptimistic

    rst("Indice") = Empty
    rst("Data") = Empty
    rst("Semana") = Empty
    rst("Codigo") = Empty
    rst("Paciente") = Empty
    rst("Mes") = Empty
    rst("Ano") = Empty
    rst("Hora") = Empty
    rst("HoraTerm") = Empty
    rst("Obs") = Empty
    rst("Usuario") = Empty
    rst("Presenca") = Empty
    rst("Posicao") = Empty
    rst("Sequencia") = Empty
    rst("ValorProf") = Empty
    rst("PercProf") = Empty
    rst("PercClin") = Empty
    rst("ValorClinica") = Empty
    rst("ValorSessao") = Empty
    rst.Delete
    rst.Close

    Call frmAgenda.Limpar
    Call frmAgenda.BuscaFrequencia
    Unload Me
End Sub