Dim dt As New DataTable
Dim sql As String = "SELECT IdProd, Nombre, Precio FROM RE_ProdServ WHERE Codigo =" & lblCodProd.Text
dt = SMT_AbrirTabla(Conexion, sql)
Dim id As Integer
id = Convert.ToInt16(dt.Rows.Item(0).Item(0))
If id = Convert.ToInt16(SelProductos.VistaProdSeleccionados.GetRowCellValue(i, "IdProd")) Then
'Aqui seria donde pone el foco'
End If