InsertCommando Error.. ?

Aca les paso la funcion que me falla.. y no tengo ni la mas remota idea de
donde es casi me muero revisando linea tras linea pero yo no le hallo el
error por fa si alguien me dice donde fallo.. :(

lo mas importante de esta function es que guarde N veces.. :( espero que me
haya dejado entender.. :(

Millon de gracias de Antemano y DJ MIA por fa no bajes la moral de los
que recien empezamos .. yo llevo 3 semanas recien de aprender VB.NET y me
cuesta un poc acostumbrarme a un lenguaje Visual y por cierto que nunca
antes programe en Visuales.. :P gracias por entender..

Private Function guarda_stock()

Dim comando As New SqlCommand("insert into stock " & _

"values(@c_ingreso,@c_producto,@c_salida,@c_proveedor,@f_vence)", conexion)

Dim ada As New SqlDataAdapter()

ada.InsertCommand = comando

conta = 0

conexion.Open()

While conta < cantidad

With ada.InsertCommand

.Parameters.Add(New SqlParameter("@c_ingreso", SqlDbType.Int))

.Parameters.Add(New SqlParameter("@c_producto", SqlDbType.Int))

.Parameters.Add(New SqlParameter("@c_salida", SqlDbType.Int))

.Parameters.Add(New SqlParameter("@c_proveedor", SqlDbType.Int))

.Parameters.Add(New SqlParameter("@f_vence", SqlDbType.DateTime))

.Parameters("@c_ingreso").Value = c_infor

.Parameters("@c_producto").Value = c_producto

.Parameters("@c_salida").Value = c_salida

.Parameters("@c_proveedor").Value = c_proveedor

.Parameters("@f_vence").Value = f_vence

End With

ada.InsertCommand.ExecuteNonQuery() >>ACA MUESTRA ERROR

conta = conta + 1

End While

conexion.Close()

End Function