Visual Basic - Por favor ¿Como puedo evitar repeticiones?

Me podrian indicar como compruebo que no exista un numero de pedido en una tabla? Muchas gracias

Antes de insertar llamas a una funcion que verifique la existencia

If Not Existe_Pedido(txtPedido) Then
.... Instrucciones para el Insert
Else
MsgBox "Pedido ya existe"
End If

Function Existe_Pedido(ByVal wPedido As String) As Boolean
Dim sql as String
Dim rs As New ADODB.Recordset

sql = "SELECT * FROM PEDIDO "
sql = sql & "WHERE COD_PEDIDO = '" & wPedido & "' "
Set rs = New ADODB.Recordset
Set rs.ActiveConnection = cnConsig
With rs
.CursorLocation = adUseClient
.CursorType = adOpenKeyset
.LockType = adLockReadOnly
.Open sql
End With

If rs.EOF Then
Existe_Pedido = False
Else
Existe_Pedido = True
End If
rs.Close
Set rs = Nothing
End Function

Saludos desde Lima

Muchas gracias Rodolfo , ¿pero me podrias explicar como lo hago cuando se trata de un control Data. Un saludo y mi agradeciemiento de nuevo

Jorge, te envie a tu correo un ejemplo, en el cual verifica si existe un codigo existente, si existe, avisa que ya existe, sino, entonces inserta el nuevo registro del X pedido. En verdad no sé si es lo que necesitas.

Saludos.