Error 429 when opening a disconnected recordset

(This was previously posted on microsoft.public.vb.databse.ado, sorry for
multiposting, I guess I posted in the wrong NG.)

The following code creates and opens a disconnected ADODB.Recordset.
On some machines I get an error 429 "ActiveX component can't create object"
when the Recordset.Open statement is executed.
This has happend on Win ME and on Win XP.
Does anyone know what could be the source of the problem?

TIA,
Andy

Private Sub pTest1()
Dim rs As Recordset

On Error GoTo ERR_OUT

Set rs = New Recordset
rs.Fields.Append "TestField", adBoolean
rs.Open ' Error 429 HERE!!! WHY???

' Ok
MsgBox "Test #1: OK", vbInformation

' Clean up
rs.Close
Set rs = Nothing
Exit Sub

ERR_OUT:

MsgBox Err.Description & vbCrLf & Err.Number, vbExclamation
Err.Clear

End Sub


.

Relevant Pages

  • RE: New Login questiion
    ... I do seem to be getting a type mismatch error around to "Set RS" code. ... Private Sub tbBadge_AfterUpdate ... MsgBox "You must enter a Badge Number", vbOKOnly, "Required ... 'now open the recordset ...
    (microsoft.public.access.formscoding)
  • RE: Why does DoCmd.OpenForm cause bouncing
    ... control on which form has the focus after the form opens? ... That shows Form_A results in this sequence of events: ... Private Sub Admin_Click' This is a button on Form_A pointing to this ... MsgBox Me.Name & " Activate" ...
    (microsoft.public.access.modulesdaovba)
  • RE: Why does DoCmd.OpenForm cause bouncing
    ... Ted Keating ... control on which form has the focus after the form opens? ... Private Sub Admin_Click' This is a button on Form_A pointing to this ... MsgBox Me.Name & " Activate" ...
    (microsoft.public.access.modulesdaovba)
  • RE: New Login questiion
    ... "John Petty" wrote: ... Private Sub tbBadge_AfterUpdate ... MsgBox "You must enter a Badge Number", vbOKOnly, "Required ... 'now open the recordset ...
    (microsoft.public.access.formscoding)
  • RE: Why does DoCmd.OpenForm cause bouncing
    ... control on which form has the focus after the form opens? ... Private Sub Admin_Click' This is a button on Form_A pointing to this ... MsgBox Me.Name & " Activate" ... MsgBox Me.Name & " Load" ...
    (microsoft.public.access.modulesdaovba)