Não consigo acessar meu projeto

Bom dia Pesoal ,

Após colocar a seguinte instrução no form load não consigo acessar meu projeto pois aparece erro solicita Debug.

'declara objetos de acesso a banco de dados

Dim BaseDeDados As Database

Dim Clientes As Recordset

'abre banco de dados na área de rabalho default

Set BaseDeDados = DBEngine.Workspaces(0).OpenDatabase(App.Path & "\Vídeo.Mdb")

'abre tabela

Set Clientes = BaseDeDados.OpenRecordset("Clientes", dbOpenTable)

Clientes.Index = "Código"

Set Fitas = BaseDeDados.OpenRecordset("Fitas", dbOpenTable)

Fitas.Index = "CódFita"

'preenche caixa de combinação

While Not Clientes.EOF

cboCódigo.AddItem Format(Clientes("Código"), "0000")

Clientes.MoveNext

Wend

While Not Fitas.EOF

If Not Fitas("Emprestadas") Then

cboCódFita.AddItem Format(Fitas("CódFitas"), "0000")

End If

Fitas.MoveNext

Wend

Já agradeço pela atenção