Private Sub NdxUsers()
Dim strIndexSQL As String
Dim cmd As New ADODB.Command
strIndexSQL = "create unique index <indexObjectName> on LinkedTblName(UniqueColumnName)"
With cmd
.ActiveConnection = [Your Connection Info Here]
.CommandText = strIndexSQL
.Execute
End With
Set cmd = Nothing
End Sub