Salve a tutti,

volevo sapere se qualcuno mi può dare una mano a risolvere questo problema.
Utilizzo un DB Access, tramite OpenSchema recupero le tabelle di questo database e poi anche le colonne di ogni singola tabella. Adesso
vorrei scrivere una SubRoutine che, dato in input il nome di una tabella appartenente al DB, restituisca il nome della colonna, che è chiave primaria della tabella. Ecco il codice che uso:

Sub Read_Table(TableName)

Dim objRecordset, objConn

'Connessione al Database Access

Set objConn = Server.CreateObject("ADODB.Connection")
objConn.ConnectionString="DRIVER={Microsoft Access Driver (*.mdb)};" & "DBQ=C:\Inetpub\wwwroot\Database\world.mdb"
objConn.Open

'Creazione di un oggetto di tipo RecordSet

Set objRecordset = objConn.OpenSchema(adSchemaPrimaryKeys)

Do While Not objRecordSet.EOF
If Trim(objRecordSet("TABLE_NAME")) = TableName Then
Response.Write objRecordSet("COLUMN_NAME") & "<br>"
End If
objRecordSet.MoveNext
Loop

objRecordSet.Close
Set objRecordSet = Nothing

objConn.Close
Set objConn = Nothing

End Sub

Purtroppo mi viene dato il seguente errore:

"L'operazione richiesta non è supportata dall'oggetto o dal provider".

C'è qualcuno che sa dirmi dove sbaglio?
O meglio ancora sarei felicissimo se qualcuno mi dicesse un altro modo per recuperare il nome del campo chiave di una tabella.

Ringrazio tutti in anticipo

Non dice la riga, ma solo il tipo di errore. Comunque è il metodo
connection.openSchema(adSchemaPrimaryKeys) che causa l'errore