How to create a primary key in VBA

The code below works. I just need to add two things to it.

1) How do I make the '"Query_Name"  field a primary key
for the table Query_Name

2) How do I make Query_Name field and Table_Name field
both a primary keys for the second table named Query_Table

/////////////////////////////////////////////////////

Sub Create_Table_Structure()
On Error GoTo Err_Create_Table_Structure_Click

   Dim dbs As DAO.Database
   Dim tdf As DAO.TableDef
   Dim fld As DAO.Field
 
   DoCmd.DeleteObject acTable, "Query_Name"
   DoCmd.DeleteObject acTable, "Query_Table"
   
   Set dbs = CurrentDb
      Set tdf = dbs.CreateTableDef("Query_Name")
         Set fld = tdf.CreateField("Query_Name", DAO.dbText, 50)
             tdf.Fields.Append fld

         Set fld = tdf.CreateField("Query_Number", DAO.dbInteger, 3)
             tdf.Fields.Append fld
         Set fld = Nothing
         dbs.TableDefs.Append tdf
      Set tdf = Nothing
     
      Set tdf = dbs.CreateTableDef("Query_Table")
         Set fld = tdf.CreateField("Query_Name", DAO.dbText, 50)
             tdf.Fields.Append fld
         Set fld = tdf.CreateField("Table_Name", DAO.dbText, 30)
             tdf.Fields.Append fld
         Set fld = Nothing
         dbs.TableDefs.Append tdf
      Set tdf = Nothing
     
   Set dbs = Nothing
   'dbs.Close

Exit_Create_Table_Structure_Click:
    Exit Sub

Err_Create_Table_Structure_Click:
    MsgBox Err.Description
    Resume Exit_Create_Table_Structure_Click
   
End Sub