Me sigue saliendo solamente la parte entera, te paso el codigo x si tu ves q he fallado en algo, gracias.
Private Sub cmdagregar_Click()
Dim preciocosto As Double
Dim iva As Double
Dim preciocostoiva As Double
Dim sumatotal As Double
preciocosto = CDbl(txtpreciocosto.Text)
iva = CDbl(txtiva.Text)
preciocostoiva = CDbl(txtpreciocostoiva.Text)
sumatotal = CDbl(txtsumatotal.Text)
Dim lacmComando As ADODB.Command
' crear comando e información de conexión
Set lacmComando = New ADODB.Command
' asignar información de conexión al comando
lacmComando.ActiveConnection = conexion
' establecer tipo de comando e instrucción SQL
lacmComando.CommandType = adCmdText
lacmComando.CommandText = "INSERT INTO Pedido_det values(" & Val(txtpedido.Text) & ", " & Val(txtidproducto.Text) & ", " & preciocosto & "," & Val(txtcantidad.Text) & "," & iva & "," & preciocostoiva & ", " & sumatotal & " )"
' ejecutar el comando
lacmComando.Execute
' liberar memoria usada por el objeto
Set lacmComando = Nothing
carga_detalles
**************************
Private Sub carga_detalles()
Dim larsRecordset As ADODB.Recordset
txtpedido.Text = gfrmbusquedapedido.txtnumpedido.Text
' crear recordset
Set larsRecordset = New ADODB.Recordset
' establecer datos de conexión
larsRecordset.ActiveConnection = conexion
' cursor del lado cliente
larsRecordset.CursorLocation = adUseClient
' abrir recordset
larsRecordset.Open "SELECT * FROM pedido_det where pedido= " & gfrmbusquedapedido.txtnumpedido.Text, , _
adOpenStatic, adLockOptimistic, adCmdText
Set Me.DataGrid1.DataSource = larsRecordset
Set Adodc1.Recordset = larsRecordset
Call DataGrid1_RowColChange(1, 1)
End Sub
*************************************
Private Sub DataGrid1_RowColChange(LastRow As Variant, ByVal LastCol As Integer)
' a medida que vamos moviendonos por el flex grid consultamos los datos de la fila
If Adodc1.Recordset Is Nothing Then
Exit Sub
End If
If Adodc1.Recordset.RecordCount <= 0 Then
Exit Sub
End If
RecuperaDatos
Exit Sub
End Sub
**********************************
Sub RecuperaDatos()
' relleno los campos con los datos del registro actual
txtpedido.Text = DataGrid1.Columns(0).Text
txtidproducto.Text = DataGrid1.Columns(1).Text
txtcantidad.Text = DataGrid1.Columns(2).Text
preciocosto = DataGrid1.Columns(3).Text
iva = DataGrid1.Columns(4).Text
preciocostoiva = DataGrid1.Columns(5).Text
sumatotal = DataGrid1.Columns(6).Text
Exit Sub
End Sub