Visual Basic.NET - Urgente porfavor!!!!!

Hola a todos, ojala me puedan ayudar, necesito urgente una ayudita
tengo el siguiente codigo que uiero comparar los datos sacados de un archivo de texto con un campo de una tabla para saber si el dato exist o no existe pero no me funciona, no esta comparando, porfavor ayudenme que problema puede tener?

'CREANDO LA CONEXION CON LA BASE DE DATOS SQL
conexion.ConnectionString = "workstation id=(local);packet size=4096;integrated security=SSPI;data source=(local);persist security info=False;initial catalog=Phuertos"
adapproducto.AcceptChangesDuringFill = True
cmdproducto.CommandText = "select * from producto"
cmdproducto.Connection = conexion
adapproducto.SelectCommand = cmdproducto
Dim archivop As New StreamReader(direccion)
Dim archivo2 As String
Dim codprod, codprod1, verificar, prod1 As String
Dim contadorr, comparadorr As Integer
Pverificando.Visible = True
archivo2 = archivop.ReadLine
Do While Not (archivo2 Is Nothing)
Console.WriteLine(archivo2)
prod1 = Microsoft.VisualBasic.Mid(archivo2, 1, 4)
If prod1 = "Prod" Then
codprod = Microsoft.VisualBasic.Mid(archivo2, 11, 6)
codprod1 = Microsoft.VisualBasic.Mid(archivo2, 15, 2)
'UTILIZANDO DOS VARIABLES PARA CONTAR LOS REGISTROS Y COMPARARLOS HASTA LLEGAR AL REQUERIDO
dproducto.Clear()
adapproducto.Fill(dproducto, "tproducto")
contadorr = dproducto.Tables("tproducto").Rows.Count
comparadorr = 0
encontrado = "si"
'ventana_produccion.tcodprod.Text = codprod
Do While (comparadorr < contadorr)
tcodprod.Text = dproducto.Tables("tproducto").Rows(comparadorr).Item("codproducto")
If codprod = tcodprod.Text Then
encontrado = "si"
Else
comparadorr = contadorr
encontrado = "no"
GoTo pasar
End If
comparadorr = comparadorr + 1
Loop
End If
archivo2 = archivop.ReadLine
Loop
pasar: