Pasar textbox al grid

[guillebomtrasmiti]

por cierto el código que tengo es este, graciassssssss

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

'Try

Dim comados = conexion.CreateCommand
comados.CommandType = CommandType.Text
comados.CommandText = "INSERT INTO LineasFacturas (Id,RefProveedor,Plu,NomProducto,NUnidades,Formato Compra,Cantidad,PtsUndsCompra,Dto,PtsBotella,TipoI va,TotalLinea,UndsCompra,FechaCaduca,IdCaduca) values (@Id,@RPro,@Plu,@Prod,@Nuni,@Fc,@Cant,@PtsUn,@Dto, @PtsBot,@TIv,@TL,@UndC,@FCa,@IdC)" & _
"SELECT @@Identity"

'Dim Id As OleDbParameter
Dim Ref As OleDbParameter
Dim plu As OleDbParameter
Dim Nom As OleDbParameter
Dim Nun As OleDbParameter
Dim FC As OleDbParameter
Dim can As OleDbParameter
Dim ptu As OleDbParameter
Dim dto As OleDbParameter
Dim pbo As OleDbParameter
Dim tiv As OleDbParameter
Dim tol As OleDbParameter
Dim undc As OleDbParameter
Dim fcad As OleDbParameter
Dim idc As OleDbParameter

Ref = New OleDbParameter("@Ref", OleDbType.WChar)
plu = New OleDbParameter("@plu", OleDbType.Integer)
Nom = New OleDbParameter("@Nom", OleDbType.WChar)
Nun = New OleDbParameter("@Nun", OleDbType.SmallInt)
FC = New OleDbParameter("@FC", OleDbType.SmallInt)
can = New OleDbParameter("@can", OleDbType.Single)
ptu = New OleDbParameter("@ptu", OleDbType.Single)
dto = New OleDbParameter("@dto", OleDbType.Single)
pbo = New OleDbParameter("@pbo", OleDbType.Single)
tiv = New OleDbParameter("@tiv", OleDbType.Integer)
tol = New OleDbParameter("@tol", OleDbType.Single)
undc = New OleDbParameter("@undc", OleDbType.Single)
fcad = New OleDbParameter("@fcad", OleDbType.Date)
idc = New OleDbParameter("@idc", OleDbType.WChar)

Ref.Value = Me.TextRefProvee.Text
plu.Value = Me.TextPlu.Text
Nom.Value = Me.Comboproducto.Text
Nun.Value = Me.TextTUnid.Text
FC.Value = Me.TextFComp.Text
can.Value = Me.TextUnd.Text '(cantidad)
ptu.Value = Me.TextPrecio.Text '(ptsundscompra)
dto.Value = Me.TextDto.Text
pbo.Value = Me.TextPUnid.Text
tiv.Value = Me.TextIva.Text
tol.Value = Me.TextTotalLinea.Text
undc.Value = Me.TextUltimoPrecio.Text
fcad.Value = Me.TextFechaC.Text
idc.Value = Me.TextIdCaduca.Text

comados.Parameters.Add(Ref)
comados.Parameters.Add(plu)
comados.Parameters.Add(Nom)
comados.Parameters.Add(Nun)
comados.Parameters.Add(FC)
comados.Parameters.Add(can)
comados.Parameters.Add(ptu)
comados.Parameters.Add(dto)
comados.Parameters.Add(pbo)
comados.Parameters.Add(tiv)
comados.Parameters.Add(tol)
comados.Parameters.Add(undc)
comados.Parameters.Add(fcad)
comados.Parameters.Add(idc)

conexion.Open()
Dim nu As Integer = CInt(comados.ExecuteScalar())
' Actualizar()
conexion.Close()
Return