Give me expected query name after executed

[quisite]

access.Open("Provider = Microsoft.Jet.OLEDB.4.0;" &
                 "Data Source = '" & Application.StartupPath & "\test.mdb'"
                 )
        value = TextBox2.Text
        query.CommandText = "insert"
        query.CommandType = ADODB.CommandTypeEnum.adCmdStoredProc
        query.Parameters.Append(query.CreateParameter("RID", ADODB.DataTypeEnum.adInteger, ADODB.ParameterDirectionEnum.adParamInput, value))
        query.ActiveConnection = access
        query.Prepared = True
        record.Open(query,, ADODB.CursorTypeEnum.adOpenDynamic, ADODB.LockTypeEnum.adLockOptimistic)

I have no idea where my code wrong @@