Como guardar las variables de una consulta a traves del for each

[heruxz]

Hola todos

Tengo una duda con el for each ya que veo que en el siguiente codigo me hace la consulta una sola vez, por lo tanto hace la comparación de

Código vb:

fila.Cells("credito").Value = asignaciones Then
 

una sola vez y necesito que la haga tantas vece sea necesario.

Código vb:

For Each fila As DataGridViewRow In dgvEstadovenezuela.Rows
            Dim asignaciones As Decimal
            Dim querySelectOrdenantes As String = "SELECT monto FROM asignaciones WHERE pais = @pais LIMIT 1"
            Using cmdasig As New MySqlCommand(querySelectOrdenantes, cn)
 
                cmdasig.Parameters.AddWithValue("@pais", "ve")
 
                Dim reader As MySqlDataReader
                reader = cmdasig.ExecuteReader()
 
                While reader.Read()
                    asignaciones = reader.GetDecimal(0)
                End While
                reader.Close()
            End Using
            
 
            If fila.Cells("credito").Value Is DBNull.Value Then
                Continue For
            ElseIf fila.Cells("credito").Value = asignaciones Then
                Continue For
            End If
 
            Dim val As Decimal = 0
            Decimal.TryParse(CStr(fila.Cells("credito").Value), val)
            suma += val
        Next
 

Gracias