Visual Basic.NET - validar

gente como estan....si alguien puede ayudarme digamen que estoy haciendo mal....ahi les va....la idea es validar el dato digitado por el usuario...verificar que determinado codigo ya se encuentra en la base de datos....:

test = Global.Sicov.Settings.Default.SICOVConnectionString
conexion = New SqlConnection(test)
DAconex = New SqlDataAdapter
DAconex.SelectCommand = New SqlCommand("select Cod_Familia from dbo.Mst_Familias", conexion)

Dsmifamilia = New DataSet
DAconex.Fill(Dsmifamilia, "Familias")
Dim DTmifamilia As DataTable = Dsmifamilia.Tables("Familias")
Dim DRmifamilia As DataRow

Dim valor As String
For Each DRmifamilia In DTmifamilia.Rows
valor = DSmifamilia.Tables("Familias").Rows(0)("Cod_Familia").ToString

If valor = Me.Pruebatxt.Text Then
System.Windows.Forms.MessageBox.Show(Me, "este codigo ya existe", "Aviso", System.Windows.Forms.MessageBoxButtons.OK, System.Windows.Forms.MessageBoxIcon.Warning)

End If
Next DRmifamilia

lo que pasa es que no verifica...ni si quiera envia el mensaje.....agradeceria la colaboracion de cualquiera....

prueba con el siguiente codigo

For Each DRmifamilia In DTmifamilia.Rows

If DRmifamilia.item("Cod_familia").tostring = Me.Pruebatxt.Text Then
System.Windows.Forms.MessageBox.Show(Me, "este codigo ya existe", "Aviso", System.Windows.Forms.MessageBoxButtons.OK, System.Windows.Forms.MessageBoxIcon.Warning)

End If
Next DRmifamilia

muchisimas gracias....te lo agradezco.....