Inserts múltiples en una tabla

Hola, traigo una colección de facturas y quiero insertarlas todas en una tabla llamada "Vende", lo que generaría ingresar en un insert 4 o 5 registros de una vez. La pregunta es como lo hago, ya que normalmente inserto un solo registro cada vez.
Algo de mi código:
Public Sub GuardarColF(ByVal unaColFacturas As Arraylist)
Dim c As OleDbConnection
c = New OleDbConnection(Me.CadenaConexion)
c.Open()
Dim i As Integer = 0
Dim unF As New Factura
For i = 0 To pColFacturas.Count - 1
unF = CType(pColFacturas.Item(i), Factura)
Me.EjecutarSQL("INSERT INTO Vende (cantidad,precio_cantidad,id_fac,id_com) VALUES ('" & unF.cantidad & "','" & unF.precio_cant & "','" & unF.id & "','" & unF.id_com & "')")
Next
c.Close()
End Sub
Este es mi código pero no me inserta todas las facturas... Solo la ultima.
¿Qué debería arreglar?
Saludos