how to have Insert or Select Statement NOT allow Duplicates

[rickn]

Being new to VB and programming, I'm not sure how to modify the
following or if required have a Select statement to NOT allow any
duplicates. I'm trying not to have any duplicates in the LOTNUM_72
field. The data is coming from odbc and being inserted via ole into
access. IF the LOTNUM_72 field is set as Prinary Key, then no records
are inserted if any duplicates are seen.

I'n not sure at all how to make the coding so if a duplicate does exist
it is not entered and the remaining data is.

icount = 0 'set the value to count the number of tickets
DataSet1.Accept Changes()
For Each rowX As DataRow In DataSet1.Lot_Tr acking_Hist.Row s
sSQL = "INSERT INTO [LotTrackingHist ory] (LOTNUM_72,
TNXDTE_72, PRTNUM_72, USRNAM_72," & _
"STKID_72,
TNXQTY_72, ORDNUM_72, UDFREF_72)" & _
" Values " & _
"('" & rowX.Item("LOTN UM_72").ToStrin g & "'," & _
"#" & rowX.Item("TNXD TE_72") & "#," & _
"'" & rowX.Item("PRTN UM_72").ToStrin g & "'," & _
"'" & rowX.Item("USRN AM_72").ToStrin g & "'," & _
"'" & rowX.Item("STKI D_72").ToString & "'," & _
"'" & rowX.Item("TNXQ TY_72").ToStrin g & "'," & _
"'" & rowX.Item("ORDN UM_72").ToStrin g & "'," & _
"'" & rowX.Item("UDFR EF_72").ToStrin g & "')"

With objCommand ' this portion identifies the
connection that will supply the data to be entered duing the commands
.Connection = oOleDbConnectio n
.CommandText = sSQL
.CommandType = CommandType.Tex t
.ExecuteNonQuer y()
End With
'Count the number of entries and display them. Lets
create a message box and display the results of data entered
icount += 1 'total number of tickets processed

Next
MessageBox.Show (icount, "Total Number Tickets Entered In
Lab Table") 'Total Tickets Entered in Lab Table
' If icount > 1 Then MessageBox.Show (icount, "No Tickets
Entered")
oOleDbConnectio n.Close() ' data is completed and time to
close the ole connection
oOleDbConnectio n = Nothing
Catch ex As Exception
MessageBox.Show (ex.ToString)
End Try

[Homer J Simpson]

"rickn" <ri***********@ att.net> wrote in message
news:11******** **************@ t31g2000cwb.goo glegroups.com.. .

Being new to VB and programming, I'm not sure how to modify the
following or if required have a Select statement to NOT allow any
duplicates. I'm trying not to have any duplicates in the LOTNUM_72
field. The data is coming from odbc and being inserted via ole into
access. IF the LOTNUM_72 field is set as Prinary Key, then no records
are inserted if any duplicates are seen.

Set LOTNUM_72 as a key: must be unique / no duplicates allowed. It need not
be primary.