If this is your first visit, be sure to
check out the FAQ by clicking the
link above. You may have to register
before you can post: click the register link above to proceed. To start viewing messages,
select the forum that you want to visit from the selection below.

With adoPrimaryRS
If Not (.BOF Or .EOF Or .RecordCount = 0) Then
mvBookMark = .Bookmark
Else
mvBookMark = 0
End If
.AddNew
End With

I cancel a record by:

adoPrimaryRS.CancelUpdate
If adoPrimaryRS.RecordCount = 0 Then
AddFirstRecord
Else
If mvBookMark > 0 Then
adoPrimaryRS.Bookmark = mvBookMark
Else
adoPrimaryRS.MoveFirst
End If
End If

If I then go to a previous record I get an "Operation Canceled" error message on the moveprevious statement.

If Not adoPrimaryRS.BOF Then
adoPrimaryRS.MovePrevious
End If

If adoPrimaryRS.BOF And adoPrimaryRS.RecordCount > 0 Then
Beep
'moved off the end so go back
adoPrimaryRS.MoveFirst
end if

This makes no sense to me because it was working fine 2 weeks ago. I reinstalled MDAC_TYP,EXE. What would cause this to happen. I also repaired the database several times without any success. It seems like a corrupted file someplace but for the life of me I can't figure out which one.

Here is some more code that first gives me an error "No such interface supported"

Dim oText As TextBox, oCheckbox As CheckBox
Dim oCombo As ComboBox, oList As ListBox, oMaskEDBox As MaskEdBox
Dim ctl As Control

'Bind the text boxes to the data provider

For Each oText In Me.txtFields
Set oText.DataSource = adoPrimaryRS
nDataType = adoPrimaryRS.Fields(oText.DataField).Type
oText.Tag = WhatIsDataType(adoPrimaryRS.Fields(oText.DataField).Type)
Next

txtFields is a control array of textboxes from 0 to 150. I first get the error message on the first textbox. It does populate the text box with the correct information from the access database and it does seem to work when I do a next and previous. But when I add then cancel I get the operation has been canceled error message. .