Visual Basic - Comparar 6 TextBox

Estoy buscando la manera de hacer una comparación.Tengo 6 TextBox con 6 números diferentes y quiero que el programa busque en 6 campos diferentes de una tabla si alguno coincide con los ya grabados y de ser asi que me lo diga con un msgbox.Lo he probado de muchas maneras y no lo consigo hacer y tiene que ser sin poner los campo de la tabla en "Sin duplicados".
¿Cómo lo puedo hacer?
Gracias

Si puede ser mas especifico en tu pregunta

No se entiende muy bien, pero tal vez esto te sirva:

dim sql as string
Dim rs As New ADODB.Recordset
Dim basedatos As New ADODB.Connection
With basedatos
.Provider = "Microsoft.Jet.OLEDB.4.0"
.ConnectionString = "Data Source = 1.mdb"
.Open
End With
sql = "SELECT campo1 FROM tabla WHERE id = " & val(text1)

set rs = basedatos.execute (sql)

deberias agregarle las otras 5 comparaciones, y mejorarlo un poco.
espero que te sirva.

CHAU

Aquí te va el esqueleto de una función que podría implementar para resolver tu problema. Revísala a ver si te sirve

Function ComparaTextBox()
Dim Rst As Recordset, DB As Database
Dim k As Integer, i As Integer
Set DB = OpenDatabase("MiBase.mdb")
Set Rst = DB.OpenRecordset("Tabla", dbOpenDynaset)

For k = 0 To 5
For i = 0 To 5
Rst.FindFirst (Rst.Fields(i).Name & "=" & Text1(k).Text)
If Not Rst.NoMatch Then
MsgBox "Se encontró coincidencia"
End If
Next i
Next k
End Function