I'm begining to hate this project

[kcovert]

Hi, it's me again:

can anyone tell me why the following code would generate this error:
run time error -2147217087(80040z21)

With de.rsCommand1
If .RecordCount = 0 Then
.AddNew
End If
***errors out here***
If Len(Text1(part)) <> 0 Then !Partnumber = Text1(part)
***!Partnumber - text1(part) is highlighted***

when I run this on my system I goes just fine, but when installed on another one, I get the error?

Thanks

[chrisjk]

What's the error description? I couldn't find anything about -2147217087

[Edneeis]

that looks like some kind of automation error. What is part? Are you sure the text1.text is a control array? Also is there any text in the Text1(part).text? If not then the Len() will give an error.

You should also use Text1(part).Text instead it makes it easier to read.

[kcovert]

text1(Part).text is a textbox that holds an array for my partnumber. There is text typed in it before I try to update the database. My problem is that this code works perfectly when I run it on my system...but when I installed in on a win/95 system I get an automation error (440):