ช่วยหน่อยคับ วิธีไม่ให้เพิ่มข้อมูลซ้ำกัน โดยมีข้อความขึ้นมาเตือน ว่ามีอยู่ในฐานข้อมูลแล้ว

			Dim intNumRows As Integer
			strSQL = "SELECT COUNT(*) FROM customer WHERE CustomerID = '"& Me.txtCustomerID.Text &"' "		
			objCmd = New OleDbCommand(strSQL, objConn)
			intNumRows = objCmd.ExecuteScalar()

			IF intNumRows > 0 Then
				Me.pnlAdd.Visible = False
				Me.lblStatus.Visible = True
				Me.lblStatus.Text = "CustomerID already exist."
			Else		
				strSQL = "INSERT INTO customer (CustomerID,Name,Email,CountryCode,Budget,Used) " & _
				" VALUES " & _
				" ('" & Me.txtCustomerID.Text & "','" & Me.txtName.Text & "','" & Me.txtEmail.Text & "', " & _
				" '" & Me.txtCountryCode.Text & "','" & Me.txtBudget.Text & "','" & Me.txtUsed.Text & "')"

				objCmd = New OleDbCommand
				With objCmd
				   .Connection = objConn
				   .CommandText = strSQL
				   .CommandType = CommandType.Text		   
				End With
								
				Me.pnlAdd.Visible = False
				Try
					objCmd.ExecuteNonQuery()            
					Me.lblStatus.Text = "Record Inserted"
					Me.lblStatus.Visible = True
				Catch ex As Exception
					Me.lblStatus.Visible = True
					Me.lblStatus.Text = "Record can not insert Error ("& ex.Message &")"
				End Try
		End IF

 Private Sub BtSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtSave.Click

        If (txThai.Text = "") Or (txEsan.Text = "") Or (TxEx.Text = "") Then
            MsgBox("กรุณาป้อนข้อมูลให้ครบด้วยนะ ค่ะ.", vbOKOnly + vbExclamation, "ตรวจสอบการป้อนข้อมูล")
        End If
        
        SQLcom = "Select * From Dic Where Esan='" & txEsan.Text & "' and thai='" & txThai.Text & "'"
        mdc.GetData()

        If iCountRecord = 0 Then
          Else
            MsgBox("มีข้อมูลอยู่ในฐานข้อมูลแล้ว ไม่สามารถเพิ่มข้อมูลได้", vbOKOnly + vbExclamation, "ตรวจสอบการป้อนข้อมูล")
        End If
        SaveData()
        ds.Dispose()

    End Sub

If (txThai.Text = "") Or (txEsan.Text = "") Or (TxEx.Text = "") Then
            MsgBox("กรุณาป้อนข้อมูลให้ครบด้วยนะ ค่ะ.", vbOKOnly + vbExclamation, "ตรวจสอบการเพิ่มคำศัพท์")
            Exit Sub
        End If

        SQLcom = "Select * From Dic Where Esan='" & txEsan.Text & "' and thai='" & txThai.Text & "'"
        mdc.GetData()

        If iCountRecord = 0 Then
        Else
            MsgBox("มีข้อมูลอยู่ในฐานข้อมูลแล้ว ไม่สามารถเพิ่มข้อมูลได้", vbOKOnly + vbExclamation, "ตรวจสอบการเพิ่มคำศัพท์")
            Exit Sub
        End If


        SaveData()
        ds.Dispose()