Error OpenDatabase

[swag]

cuando estoy corriendo un programa me sale esto:

Error 429 El Componente Activex No Puede Crear El Objeto

y me marca esta linea:
.Set BaseDatos = OpenDatabase("C:\Users\ITJUVE\Desktop\Microsoft Visual Studio 6.0\Nueva carpeta/AgendaData.mdb")

que esta mal??

[ValentinoMolinari]

no entiendo tu coneccion, fijate esta tal vez te sirva
Public Sub main()

strcn = App.Path & "\CA.mdb"
On Error GoTo ErrAbr
ConData = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & strcn & ";"
' Data.ConDigital.Open ConData
Set cn = New ADODB.Connection
cn.CursorLocation = adUseClient
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & strcn & ";"

Set Comando = New ADODB.Command
Comando.ActiveConnection = cn
'Data.Commands(1).ActiveConnection = ConData
Set FncAux = New ADODB.Recordset ' Solo para funciones
FncAux.ActiveConnection = ConData
ErrAbr:
If Not Err.Number = 0 Then
MsgBox "Ocurrió un error al abrir la base de datos" & Err.Number, vbCritical, "Horror Fatal!!!!!!!"
End
End If
FrmSeguridad.Show
End Sub

[Avellaneda]

Iniciado por swag

cuando estoy corriendo un programa me sale esto:

Error 429 El Componente Activex No Puede Crear El Objeto

y me marca esta linea:
.Set BaseDatos = OpenDatabase("C:\Users\ITJUVE\Desktop\Microsoft Visual Studio 6.0\Nueva carpeta/AgendaData.mdb")

que esta mal??

Un par de preguntas:

¿Tienes marcada alguna referencia a DAO?
¿El punto delante de la instrucción Set, qué significa?