y casi me doy por vencido pero creo que me falta nada mas mas informacion es que llevo recien un mes con vb.net.. : 
a ver si me hechan una manito segun yo esta bien.... les paso el codigo completo.. 
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If (Me.ComboBox1.Text <> "") Then
leer.ReadXml("seleccion_forma.xml")
Dim fila As DataRow
For Each fila In leer.Tables(0).Rows
insertar(fila.Item("Cantidad"), fila.Item("Fecha Vencimiento"), fila.Item("Nombre Generico"), fila.Item("Nombre Comercial"), fila.Item("Dosis"), fila.Item("Presentacion"), fila.Item("Medida de Dosis"), fila.Item("Proveedor"))
guarda_stock()
Next
guardar_informe()
Me.Close()
Else
MessageBox.Show("Verifique los Datos")
End If
MessageBox.Show("Valores Ingresados")
End Sub
Private Function guarda_stock()
Dim comando As New SqlCommand("insert into stock " & _
"values(@c_ingreso,@c_producto,@c_salida,@c_provee dor,@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() ----->>> AQUI EL ERROR..
conta = conta + 1
End While
conexion.Close()
End Function
Private Function insertar(ByVal canti As Integer, ByVal fecha As Date, ByVal n_gen As String, ByVal n_com As String, ByVal dos As String, ByVal n_uni As String, ByVal m_dos As String, ByVal n_prove As String)
'LAS FUNCIONES DE ACA YA FUNCIONAN BIEN PROBADAS..
cantidad = canti
f_vence = fecha
c_infor = get_c_inf()
c_producto = get_c_prod(n_gen, n_com, dos, n_uni, m_dos)
c_salida = 0
c_proveedor = get_c_prove(n_prove)
End Function
