Private Sub Command1_Click()
On Error Resume Next
Dim strOCR As String
strOCR = ProcesarTxt("C:\Prueba3.txt")
Dim int4Numeros() As Integer
ExtraerGrupos4Numeros strOCR, int4Numeros
'Aquí presupongo que tienes definidas la correspondiente
'conexión y comandos a la base de datos. Considero para
'el ejemplo que cmd1 es un objeto Command válido...
dim rsMatriculas As Recordset, strSQL As String
strSQL = "SELECT * FROM TablaMatriculas WHERE Matricula LIKE "
dim lng1 as long
For lng1 = 1 to ubound(int4Numeros)
cmd1.CommandText = strSQL & "'%" & int4Numeros(lng1) & "%'"
set rsMatriculas=cmd1.Execute()
If rs.RecordCount > 0 Then rs.Matriculas.MoveFirst
Do until rsMatriculas.EOF
If Instr(1,strOCR,rsMatriculas.Fields("Matricula").value)) > 0 Then Exit Do
rsMatriculas.MoveNext
Loop
If not rsMatriculas.EOF Then
MsgBox "La matrícula es " & rsMatriculas.Fields("Matricula").value
Exit For
End If
Next lng1
If not rsMatriculas is Nothing Then
If rsMatriculas.EOF Then _
MsgBox "La matrícula no se ha encontrado en la db"
Else
MsgBox "La matrícula no se ha encontrado en la db"
End If
.
.
.
End Sub