'引用Microsoft ActiveX Data Objects 2.5 Library
Dim conn As ADODB.Connection
Dim strConn As String, SQLCreate As String
strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\tempDB.mdb;"
Set conn = New ADODB.Connection
conn.ConnectionString = strConn
conn.Open
SQLCreate = "Alter table tempTable add primary key (H_ID, H_F1)"
conn.Execute SQLCreate, 1, adCmdText
conn.Close
Set conn = Nothing