Insertar Multiples Records

[alien51]

Amigos: de nuevo su ayuda:

Tengo este código que funciona perfectamente: (Visual Studio 2010)

Código Visual Basic:

Private Sub btnCargar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCargar.Click
    Dim alumno As New alumnos
    vMes = cmbMes.SelectedItem
    vMonto = Val(txtMonto.Text)
    alumno.ano = vFecha
    Dim vAno As Integer = alumno.elano
    alumno.cargarDia = vFecha 
    Dim vDia As Integer = alumno.eldia
    MsgBox(alumno.eldia)
    Control()
    If vControl >= 1 Then
      MessageBox.Show("El mes de " + vMes + " ya ha sido cargado a " + vNombre)
      Me.Close()
    Else
      cmd = con.CreateCommand
      cmd.Connection = con
      Dim Trans As OleDbTransaction
      Trans = con.BeginTransaction
      cmd.Transaction = Trans
      Try
       cmd.CommandText = "INSERT into meses (id,nombre,monto,mesactual,status,ano) values ('" & vId & "', '" & vNombre & "', '" & vMonto & "', '" & vMes & "','ACTIVO', '" & vAno & "')"
        cmd.ExecuteNonQuery()
        cmd.CommandText = "UPDATE cursos SET saldo = saldo + '" & vMonto & "', Ultimomes='" & vMes & "' where ID= " & vId & " "
        cmd.ExecuteNonQuery()
        Trans.Commit()
      Catch ex As OleDbException
        Trans.Rollback()
        MessageBox.Show("Error al cargar mensualidad de " & vMes & " " & ControlChars.CrLf & ex.Message & ControlChars.CrLf & ex.Message)
        con.Close()
        Me.Close()
      End Try
      MessageBox.Show("Ha sido cargada la mensualidad del mes de " + vMes + "correctamente")
      con.Close()
      Me.Close()
    End If
  End Sub
 

El problema: ahora necesito el INSERT para multiples registros (records) de los alumnos que, por ejemplo, vencen el día 10 (el dia me lo devuelve la clase alumno). El filtro sería ...where dia= " & vDia & "... obviamente pero ¿cómo puedo insertar todos los registros de ese día sin necesidad de hacerlo uno por uno? ¿Loop? ¿For..Next? Pero, ¿cómo funcionarían ?

Mil gracias por su ayuda!!!