How to assign Primary keys using VB code in access 2007?

'Module
 
Option Compare Database
Option Explicit
'==========================================================================
 
Function CDB_TABLES_VB_Init()
   Dim tcn As New CDB_Import
     With tcn
      If .LoadTABLEName Then      ' Retrieve CDI names and view names
         .PopulateTables
         Beep                       ' Beep.
      End If
   End With
     Application.Quit                 ' Exit MS Access
End Function
 
'Class Module
Option Compare Database
Option Explicit
'==============================================================================
Dim rst As adodb.Recordset
Dim cnn0 As adodb.Connection
Dim lRowNum As Long
Dim lNumRows As Long
Dim tesnumrows As Long
Dim pullname As String
 
'==============================================================================
'Purpose: This routine links via ODBC and imports all tables located in the CDB schema
'with minimal user intervention.  Prior to kicking off the macro named CDB_VB_Init,
'you must add a user name and passwords only in two locations within this module.
'When the backup is accomplished, replace the user name and password with pound signs.
 
Public Function LoadTABLEName() As Boolean
 
   On Error GoTo HandleErrors
   Set cnn0 = New adodb.Connection
   Set rst = New adodb.Recordset
'connectivity will not be estblished if your password includes a semi-colon
   cnn0.Open "DSN=###;UID=###;PWD=###;DATABASE=###"
    With rst
      .CursorType = adOpenStatic
      .LockType = adLockOptimistic
      .ActiveConnection = cnn0
 
      .Open "select TABLE_NAME from ALL_TABLES " _
         & "where TABLESPACE_NAME='DATATOOLS'" _
         & "AND OWNER = 'CDB' " _
         & "ORDER BY TABLE_NAME;"
      '.MoveLast
      lNumRows = .RecordCount
      tesnumrows = .RecordCount
      
      'MsgBox tesnumrows
          .Close
 
      .Open "select TABLE_NAME from ALL_TABLES " _
         & "where TABLESPACE_NAME='DATATOOLS'" _
         & "AND OWNER = 'CDB' " _
         & "ORDER BY TABLE_NAME;"
       
       If lNumRows > 0 Then
         lRowNum = 1
         LoadTABLEName = True
         Exit Function
      Else
         MsgBox "There was an error or no result querying table."
         LoadTABLEName = False
         Exit Function
      End If
   End With
        
HandleErrors:
   MsgBox Error$
   LoadTABLEName = False
End Function
 
'===============================================================================
 
Public Sub PopulateTables()
 
Dim db As DAO.Database
Dim tbl As DAO.TableDef
Dim idx As DAO.Index
Dim fld As DAO.Field
 
Set db = CurrentDb
   lRowNum = 1
   If Not rst.BOF Then
      rst.MoveFirst
   End If
   ' Loop and Load tables
   On Error Resume Next
   While lRowNum <= lNumRows
         pullname = ("CDB") & "_" & rst.Fields("TABLE_NAME")
               MsgBox pullname  'test naming convention
      
      For Each tbl In db.TableDefs
      'Debug.Print pullname
 
      For Each idx In tbl.Indexes
      
      'Debug.Print " index: "; idx.Name
      'Debug.Print " Primary="; idx.Primary; ", unique="; idx.Unique
      
      For Each fld In idx.Fields
       'Debug.Print " field:": fld.Name
       Next fld
       Next idx
       Next tbl
          
       Application.Echo True, "Logging-in and loading table" & " " & pullname
 
      DoCmd.TransferDatabase acImport, "ODBC Database", _
         "ODBC;DSN=###;UID=###;PWD=###;DATABASE=###", _
         acTable, _
         "CDB." + rst.Fields("TABLE_NAME"), _
         pullname, _
         False, _
         True
      lRowNum = lRowNum + 1
      rst.MoveNext
   Wend
   On Error GoTo 0
End Sub