[Resolvido]Erro ao gravar Quantidade fracionada

Boa tarde!

Bd em Access 2010.

O formulário contínuo possui no cabeçalho um campo não acoplado no formato Número Geral, chamado "txtQte". O conteúdo desse campo é transportado para o campo "Qte" localizado em Detalhes deste mesmo formulário.

Quando a quantidade informada nesse campo é um número inteiro a função funciona, por exemplo 5. Porém, quando a quantidade não é um número inteiro, por exemplo, 0,85, aparece a seguinte mensagem: "Número de valores da consulta e campos de destino não coincidem."

Desde já agradeço!

Segue código:

If AçãoBotão = "IncluirProdutosComposicao" Then
Set dbs = CurrentDb
strSQL = "SELECT * FROM tbl_ProdutosComposicao order by CODCOM"
Set rst = dbs.OpenRecordset(strSQL)

If rst.RecordCount = 0 Then
txtCodCom = 1
Else
rst.MoveLast
txtCodCom = rst("CODCOM") + 1
End If
rst.Close

strSQL = "INSERT INTO tbl_ProdutosComposicao ("
strSQL = strSQL & "CODCOM,"
strSQL = strSQL & "CODPRO,"
strSQL = strSQL & "CODPROCOM,"
strSQL = strSQL & "QTE)"

strSQL = strSQL & " VALUES (" & txtCodCom & ","
strSQL = strSQL & txtCodPro & ","
strSQL = strSQL & txtCodProCom & ","
strSQL = strSQL & txtQte & ");"

On Error GoTo erro
Workspaces(0).Databases(0).Execute strSQL
End If

If PrimeiroRegistro = True Then
PrimeiroRegistro = False
End If

ListaProdutos = ""
txtQte = 0
Me.Requery
ListaProdutos.SetFocus
CalculaSubTotal
CalcularCustoTotal
txtQte.enabled = False

VoltaErro:

Exit Sub

erro:
Beep
MsgBox Error$, vbCritical, "Edição"
Resume VoltaErro

Avelino, obrigado pela orientação, ela funcionou.
Apenas não usei o replace, pois no campo destino a quantidade precisa estar fracionada.

Antes de fechar esse tópico, se possível gostaria de uma breve explicação da alteração feita.

No mais, muito obrigado!

Muito obrigado Avelino!

Abraço