Problema guardar

[guillebomtrasmiti]

Dim adapta2 As New OleDbDataAdapter
Dim datavacio As New DataSet


Dim comados = conexion.CreateCommand

comados.CommandText = "INSERT INTO GeneralAlmacen (Fecha) Select Plu,NomProducto From Productos" _
+ "values (@FE)"
Dim FE As OleDbParameter
FE = New OleDbParameter("@FE", OleDbType.Date)
FE.Value = Me.Fecha1.Value
comados.Parameters.Add(FE)

conexion.Open()
' Dim nu As Integer = CInt(
comados.ExecuteNonQuery()
' Actualizar()

conexion.Close()

ESTO SE HACE ASÍ...ES QUE ME DA ERROR ESTA CLARO QUE NO...AYUDITA?

[guillebomtrasmiti]

arreglado..para quien le pueda servir

Public Sub creainventario()
Dim adapta2 As New OleDbDataAdapter
Dim datavacio As New DataSet


Dim comados = conexion.CreateCommand
' Insert into FacturaHistorico(campo,campo2,campo3)
'Select campo,campo2,campo3,@variableAnio,@variableMes from Factura
comados.CommandText = "INSERT INTO GeneralAlmacen(Plu,NomProducto,Fecha) Select Plu,NomProducto,@FI From Productos"
comados.Parameters.AddWithValue("@FI", Fecha1.Value.Date.ToString("dd/MM/yyyy"))
conexion.Open()
' Dim nu As Integer = CInt(
comados.ExecuteNonQuery()
' Actualizar()

conexion.Close()
End Sub