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?
