在vb中取得oracle数据库某张表的主键定义,该如何解决

在vb中取得oracle数据库某张表的主键定义
原来是MDB数据库，相关代码如下：
Dim   dbLocalMast   As   Database
dbLocalMast   =   kzzMdbOpen(sDBName)
With   dbLocalMast.TableDefs(sCodeTbl)
                  sFieldName   =   .Fields(0).Name
                  For   iCnt   =   0   To   .Indexes.Count   -   1
                        If   .Indexes(iCnt).Primary   Then
                                      sFieldName   =   .Indexes(iCnt).Fields(0).name
                          End   If
                  Next   iCnt
  End   With
现在要换成oracle数据库。同样达到以上的功能。
小弟现在主要是对取得ORACLE数据库中表的主键的方法很困惑。
原来的MDB中似乎是用了DAO中的打database对象的tableDefs方法，很容易的实现了。
不知道在oracle如何实现。
请各位大虾不吝赐教。

------解决方案--------------------
datatable对象中有
Dim a As New DataTable
a.PrimaryKey ....

------解决方案--------------------
楼上讲的应该是对的