使用代码创建SQL链接表，如何创建主键索引

使用odbc链接一个SQL表，链接时会有一个提示如图：

选择其中几个字段确认后，通过ODBC链接的这个表就可以编辑了。

但是，使用以下代码创建链接表记录无法编辑。请问应该用什么代码实现上图的操作步骤？

以下是现有的代码:

   Dim cnn As String
    Dim dbs As Object    'Database
    Dim tdf As Object    'DAO.TableDef
    Set dbs = CurrentDb
    '下面是ODBC连接SQL字符串
    strConnect = "ODBC;DRIVER=SQL Server" & _
                 ";SERVER=" & DataIP & _
                 ";DATABASE=" & SourceDataName & _
                 ";UID=sa" & _
                 ";PWD=" & DataSAPWD

'    DoCmd.DeleteObject acTable, Me.SourceTblName

    Set tdf = dbs.CreateTableDef(Me.SourceTblName)   '创建链接表
    tdf.Connect = strConnect
    tdf.SourceTableName = Me.SourceTblName     'SQL源表
    dbs.TableDefs.Append tdf
    Set dbs = Nothing
    Set tdf = Nothing
    Application.RefreshDatabaseWindow  '刷新
    MsgBox "链接表添加成功，请查看表"