Error 429 when opening a disconnected recordset

Tech-Archive recommends: Repair Windows Errors & Optimize Windows Performance

The following code creates and opens a disconnected recordset.
On some machines I get an error 429 "ActiveX component can't create object"
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

' 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: 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)
  • Error 429 when opening a disconnected recordset
    ... The following code creates and opens a disconnected ADODB.Recordset. ... Private Sub pTest1() ... Dim rs As Recordset ... MsgBox Err.Description & vbCrLf & Err.Number, ...
    (microsoft.public.data.ado)
  • Re: Is David Fenton right about error handling?
    ... This function works fine as long as tblContact is there, but if I rename the table to tblBogus for instance, I get stuck in a never-ending loop caused by me trying to shut the recordset if it is not nothing. ... Set rst = New ADODB.Recordset ... On Error GoTo Err_Handler 'go back to general error handling ... MsgBox "Could NOT close the Recordset" ...
    (comp.databases.ms-access)
  • RE: Delete SQL statement
    ... MsgBox "delete old revision record" ... DaysDiff = DateDiff ... single quote for the DocID (assuming you are using a number/autonumber field ... If your recordset is returning a single value, ...
    (microsoft.public.access.formscoding)