如何知道Sybase某个表中哪个字段是主键

[anstern]

我用VB开发,对Access数据库,代码如下

Dim kyForeign As New ADOX.Key
Dim cat As New ADOX.Catalog

cat.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=d:\test.mdb;"

For Each kyForeign In cat.Tables("table1").Keys
If kyForeign.Type = 1 Then
For Each Col In kyForeign.Columns
Debug.Print "对应字段名：" & Col.Name
Next Col
End If
Next

以上代码可以把表中的主键打印出来,但当我把数据库改为sybase,如下
cat.ActiveConnection = "Provider=Sybase.ASEOLEDBProvider.2;Initial Catalog=test;User ID=sa;Password=;Persist Security Info=False;Server Name=10.72.19.76;Character Set=iso_1"

程序运行到For Each kyForeign In cat.Tables("table1").Keys这句就提示错误"对象和提供程序不能执行所需的操作",请问大家应该如何做才能得到Sybase某个表的主键呢?

[lw1a2]

建议到VB的版去问