Visual Basic - ERROR 429 ACTIVEX

TENGO UN PROBLEMA: REALICE UN PROGRAMA EN VISUAL BASIC Y AL GUARDAR ME SALE UN ERROR 429 QUE DICE : EL COMPONENTE ACTUIVEX NO PUEDE CREAR EL OBJETO?

CUAL SERA LA CAUSA DE ESTE ERROR Y CUAL SERÁ SU POSIBLE SOLUCION?

DE ANTEMANO MUCHAS GRACIAS

COMO NO PONGAS EL CODIGO Y DONDE DA EL ERROR NO LO VAMOS A ADIVINAR.

Set bd = OpenDatabase(App.Path & "\Laminoteca.mdb") *** EL ERROR ME DICE QUE ESTA AQUI EN ESTA LINEA DE CODIGO
Set reg = bd.OpenRecordset("select * from datospozo")
reg.AddNew
reg![pozo] = Trim(UCase(Text2.Text))
reg![abreviatura] = Trim(UCase(Text1.Text))
reg![fecha] = Trim(Text5.Text)
reg![especialidad] = Trim(UCase(Combo1.Text))
reg![estafisico] = Trim(UCase(Combo4.Text))
reg![tipomuestra] = Trim(UCase(Combo2.Text))
reg![nucleoteca] = Trim(UCase(Combo5.Text))
reg![estante] = Trim(UCase(Text7.Text))
reg![numcaja] = Trim(UCase(Text9.Text))
reg![nummuestra] = Trim(UCase(Text4.Text))
reg![cantlaminas] = Val(Trim(Text3.Text))
reg![residuo] = Trim(Combo6.Text)
reg![tope] = Val(Trim(Text12.Text))
reg![base] = Val(Trim(Text14.Text))
reg![profundidad] = Val(Trim(Text19.Text))
reg![observaciones] = Trim(UCase(Text6.Text))
reg![coordx] = Val(Trim(Text10.Text))
reg![coordy] = Val(Trim(Text11.Text))
reg![formacion] = Trim(UCase(Text15.Text))
reg![arena] = Trim(UCase(Text13.Text))
reg![preparador] = Trim(UCase(Text17.Text))
reg![custodio] = Trim(UCase(Text18.Text))
reg![campo] = Trim(UCase(Text21.Text))
Text12.Text = ""
Text14.Text = ""
Text19.Text = ""
Text4.Text = ""
Text10.Text = ""
Text11.Text = ""
Text12.SetFocus
reg.Update
MsgBox "Registros Guardados...", vbInformation
reg.Close
bd.Close
End Sub

Set bd = OpenDatabase(App.Path & "\Laminoteca.mdb") *** EL ERROR ME DICE QUE ESTA AQUI EN ESTA LINEA DE CODIGO
Set reg = bd.OpenRecordset("select * from datospozo")
reg.AddNew
reg![pozo] = Trim(UCase(Text2.Text))
reg![abreviatura] = Trim(UCase(Text1.Text))
reg![fecha] = Trim(Text5.Text)
reg![especialidad] = Trim(UCase(Combo1.Text))
reg![estafisico] = Trim(UCase(Combo4.Text))
reg![tipomuestra] = Trim(UCase(Combo2.Text))
reg![nucleoteca] = Trim(UCase(Combo5.Text))
reg![estante] = Trim(UCase(Text7.Text))
reg![numcaja] = Trim(UCase(Text9.Text))
reg![nummuestra] = Trim(UCase(Text4.Text))
reg![cantlaminas] = Val(Trim(Text3.Text))
reg![residuo] = Trim(Combo6.Text)
reg![tope] = Val(Trim(Text12.Text))
reg![base] = Val(Trim(Text14.Text))
reg![profundidad] = Val(Trim(Text19.Text))
reg![observaciones] = Trim(UCase(Text6.Text))
reg![coordx] = Val(Trim(Text10.Text))
reg![coordy] = Val(Trim(Text11.Text))
reg![formacion] = Trim(UCase(Text15.Text))
reg![arena] = Trim(UCase(Text13.Text))
reg![preparador] = Trim(UCase(Text17.Text))
reg![custodio] = Trim(UCase(Text18.Text))
reg![campo] = Trim(UCase(Text21.Text))
Text12.Text = ""
Text14.Text = ""
Text19.Text = ""
Text4.Text = ""
Text10.Text = ""
Text11.Text = ""
Text12.SetFocus
reg.Update
MsgBox "Registros Guardados...", vbInformation
reg.Close
bd.Close
End Sub