Visual Basic - validar datos repetidos

como puedo hacer para que no me deje agregar datos que ya existen en una tabla de access, en realidad solo seria 1 dato a comprobar si existe o no, si el dato existe que salga un mensaje diciendo que existe el dato y que no deje guardarlo.

necesito su ayuda.

gracias

Tendras que hacer una funcion que antes de gravar db compruebe el dato si te devuelve fase gravas y si es true adviertes al usuario.

si, tengo muchas ideas de como hacerlo pero lo que quiero saber es algun ejemplo de cogio para saber como lo puedo hacer.

gracias

te paso una manera sencilla.

copia el texto siguiente en un archivo y luego renombralo a "Form1.frm"
utiliza la base de datos que acompaña visual "BIBLIO.MDB"

--------------------
VERSION 5.00
Begin VB.Form Form1
Caption = "Form1"
ClientHeight = 1110
ClientLeft = 60
ClientTop = 450
ClientWidth = 2175
LinkTopic = "Form1"
ScaleHeight = 1110
ScaleWidth = 2175
StartUpPosition = 3 'Windows Default
Begin VB.CommandButton Command1
Caption = "Comprueba"
Height = 255
Left = 120
TabIndex = 1
Top = 600
Width = 975
End
Begin VB.TextBox Text1
Height = 405
Left = 120
TabIndex = 0
Top = 120
Width = 1815
End
Begin VB.Data Data1
Caption = "Data1"
Connect = "Access 2000;"
DatabaseName = "C:Archivos de programaMicrosoft Visual StudioVB98BIBLIO.MDB"
DefaultCursorType= 0 'DefaultCursor
DefaultType = 2 'UseODBC
Exclusive = 0 'False
Height = 300
Left = 120
Options = 0
ReadOnly = 0 'False
RecordsetType = 1 'Dynaset
RecordSource = "Authors"
Top = 165
Width = 1140
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Sub Command1_Click()
Dim msg As String
If comprueba(Text1) Then
msg = " No "
Else
msg = " si "
End If

MsgBox "Dato " & msg & "valido"

End Sub
Function comprueba(dato As Long) As Boolean
Data1.RecordSource = "select * from Authors where Au_id = " & dato
Data1.Refresh

If Data1.Recordset.EOF Then
comprueba = False
Else
comprueba = True
End If

End Function

------------------
suerte

me merca error me dice que no se pudo encontrar el archivo isam instalable, le doy aceptar, ejecuto el formulario y me marca error me dice:

no coinciden los tipos y me marca el error aqui: If comprueba(Text1) Then