ADO and Oracle OLEDB 8.1.7.2.0

Hello,

i want to run this VB-procedure:

Private Sub Command1_Click()
Dim arrFields(0) As String
Dim arrValues(0)
Dim objConn As ADODB.Connection
Dim objCmd As ADODB.Command
Dim objRS As ADODB.Recordset
Dim i As Integer

    arrFields(0) = "Name"

    arrValues(0) = "200"

    Set objConn = CreateObject("adodb.connection")     objConn.Open gOleConnection
    Set objCmd = CreateObject("ADODB.Command")

    objCmd.ActiveConnection = objConn
    objCmd.CommandType = 1
    objCmd.Properties("IRowsetChange") = True
    objCmd.Properties("Updatability") = 7
    objCmd.Properties("Server data on insert") = True

    Set objRS = CreateObject("adodb.recordset")

    objRS.CursorLocation = 2
    objRS.CursorType = adOpenStatic
    objRS.LockType = 3
    objRS.Open "select Name from testvvv", objConn

    objRS.AddNew arrFields, arrValues

    MsgBox "fertig"
End Sub

After starting the runtime error 3265 is comming (Can´t find objekt with this name or ordinal) at the "objRS.AddNew..."-Line!

can anyone help?

best regards

Volkhard Received on Sat Jul 21 2001 - 16:27:22 CDT