Table Driven Part

[Ceorl]

I have a table driven part in a part file and would like to know if anyone out there knows how to define the active row of the table through VB or VBA. I can get this far, but can't seem to get any farther.

Dim oApp As Inventor.Application
Dim oDoc As Inventor.PartDocument
Dim oPrt As Inventor.PartComponentDefinition

Set oApp = GetObject(, "Inventor.Application")

If Err Then
Set oApp = CreateObject("Inventor.Application")
Set oDoc = oApp.Documents.Open("f:\dwg\ccl\stand.ipt")
Else
Set oDoc = oApp.ActiveDocument
of = False
End If
Set oPrt = oDoc.ComponentDefinition


Thanks,
Ceorl