cmd.ActiveConnection = CurrentProject.Connection
cmd.CommandType = adCmdText
' Set all columns for this table to have an initial display
‘ sequence of 0
strSQL = " UPDATE COL_COLUMN_M SET COL_DISPLAYSEQ_N = 0"
cmd.CommandText = strSQL
cmd.Execute lngAffected
' Set Display Sequence to 1 for PK Columns that are Data
‘ datatype
strSQL = " UPDATE COL_COLUMN_M SET COL_DISPLAYSEQ_N = 1 " _
& " WHERE TAB_PHYSNAME_T = '" & Trim(strTable) & "' " _
& " AND COL_PK_I = 'Y' AND DTP_C = 'DATETIME' "
cmd.CommandText = strSQL
cmd.Execute lngAffected
' Set Display Sequence to 2 for PK Columns that are FK columns
strSQL = " UPDATE COL_COLUMN_M SET COL_DISPLAYSEQ_N = 2 " _
& " WHERE TAB_PHYSNAME_T = '" & Trim(strTable) & "' " _
& " AND COL_PK_I = 'Y' AND COL_FK_I = 'Y' " _ ...