how to assign more than one primary key

[gaffar]

Hello Sir,
How to assign more than one primary key to table by this below following
code. i am able assign to a single field only. how to assign primary key to
more than one field. the primary key assigning code line is symboled kept
with in the *************** in the below code.

'Creating database

Dim cat As Catalog = New Catalog

cat.Create("Pro vider=Microsoft .Jet.OLEDB.4.0; " & _

"Data Source= " & Application.Sta rtupPath & "\databases " & "\" & fname1 &
";" & "Jet OLEDB:Engine Type=5")

cat = Nothing

MsgBox("Databas e succesfully created")

End If

'creating tables in the database

'

' This code adds a single-field Primary key

'

Dim Cn As ADODB.Connectio n

Dim Cat2 As ADOX.Catalog

Dim objTable1, objtable2 As ADOX.Table

Cn = New ADODB.Connectio n

Cat2 = New ADOX.Catalog

objTable1 = New ADOX.Table

objtable2 = New ADOX.Table

'Open the connection

Try

Cn.Open("Provid er=Microsoft.Je t.OLEDB.4.0;" & _

"Data Source= " & Application.Sta rtupPath & "\databases " & "\" & fname1 &
";" & "Jet OLEDB:Engine Type=5")

'"Provider=Micr osoft.Jet.OLEDB .4.0;Data Source=d:\sampl e\gaffar.mdb"

Catch ex As Exception

MsgBox(ex.Messa ge)

End Try

'Open the Catalog

Cat2.ActiveConn ection = Cn

'Create the table

objTable1.Name = "Test_Table "

objtable2.Name = "Test_Table 2"

'Create and Append a new field to the "Test_Table " Columns Collection

objTable1.Colum ns.Append("comp any", DataTypeEnum.ad VarWChar)

objTable1.Colum ns.Append("cont act", DataTypeEnum.ad VarWChar)
'Create and Append a new key. Note that we are merely passing

'the "PimaryKey_Fiel d" column as the source of the primary key. This

'new Key will be Appended to the Keys Collection of "Test_Table "

'dsclient.Table s(0).PrimaryKey = New DataColumn

'{dsClient.Tabl es(0).Columns(" FirstName"),

'dsClient.Table s(0).Columns("L astName")}

*************** *************** *************** *************** *************** *
*************** **

objTable1.Keys. Append("Primary Key", KeyTypeEnum.adK eyPrimary, "company")

*************** *************** *************** *************** *************** *
*************** **

'Append the newly created table to the Tables Collection

Try

Cat2.Tables.App end(objTable1)

Catch ex As Exception

MsgBox(ex.Messa ge)

End Try

Cat2.Tables.App end(objtable2)

' clean up objects

' objKey = Nothing

objTable1 = Nothing

objtable2 = Nothing

Cat2 = Nothing

[Cor Ligthert]

Gaffar,

In my opinion is that on this page

http://msdn.microsoft.com/library/de...eyfortable.asp

I hope this helps?

Cor