Error 424

Hla tengo este codógo y no se porque me sale este error
Si e pueden dar una mano gracias
Private Sub UserForm_Initialize()
Dim bdd As Database
Dim almacena As String
Dim cadena As String
Set bdd = OpenDatabase(App.Path & "C:\portafolio\portafolio.mdb") ? Aqui sale error no se porque ? Dice Se requiere un objeto que objetooo?
cadena = "select * from personal"
Set registro = bdd.OpenRecordset(cadena)
If Not registro.EOF Then
While Not registro.EOF
almacena = registro(0)
ComboBox1.AddItem almacena
registro.MoveNext
MsgBox almacena, vbOKOnly, "prueba"
Wend
End If
End Sub
En el modulo tengo:
Global bdd As Database
Global registro As Recordset
Global cadena As String
Global código As Integer
Sub prueba()
Load UserForm1
UserForm1.Show
End Sub
Public Function ejecutarcadena(cad As String)
Set bdd = OpenDatabase(App.Path & "C:\portafolio\portafolio")
bdd.Execute cad
End Function