[Resolvido] mshFlexGrid e tabela access

entao

volto a pedir ajuda a quem entende

seguinte: abra uma Ordem de Serviço de um cliente através de um form, que entre muitos dados, um deles é jogar as peças utilizadas num conserto num MshflexGrid. Até ai tudo bem, funciona muito bem com esta sub:

Private Sub CmdIncluirPec_Click()
'inclui dados no primeiro grid
'chr$(9) é pra mudar de celula com enter
GrdIncluiPec.AddItem TxtCodPeca.Text + Chr$(9) + TxtNomePeca.Text + Chr$(9) + _
TxtQuant.Text + Chr$(9) + TxtValor.Text + Chr$(9) + TxtTotLinha.Text
TxtCodPeca.SetFocus
TxtCodPeca.Text = ""
TxtNomePeca.Text = ""
TxtQuant.Text = ""
TxtValor.Text = ""
TxtTotLinha.Text = ""
End Sub
acontece que um conserto usa diversas peças e com isso a flex vai ter muitas linhas e ai começa o problema retornando erro sinalizando no execute aqui:

Private Sub IncluirDados()
Dim vConfMsg As Integer
Dim vErro As Boolean
Dim vOK As Integer
'inicializa as variaveis auxiliares
vConfMsg = vbExclamation + vbOKOnly + vbSystemModal
vErro = False
'verifica os dados digitados
If TxtDataInicioServico.Text = Empty Then
MsgBox "O campo Data Entrada não foi preenchido.", vConfMsg, "Erro"
vErro = True
End If
If TxtHoraInicioServico.Text = Empty Then
MsgBox "O campo Hora Entrada não foi preenchido.", vConfMsg, "Erro"
vErro = True
End If
'Se acontece um erro sai da sub sem gravar
If vErro Then Exit Sub
With cnnComando
.ActiveConnection = cnnCetecInfServiços
.CommandType = adCmdText
'cria o modulo sql

 .CommandText = "INSERT INTO Oficina1" & _
 "(Data_Inicio_Servico, Hora_Inicio_Servico, Numero_OS, Nome, Produto, Prog, Reg, MaqAcid, GrAlim, ConjTecl, MaqTranc, PlBsEletr, CjEntr, GrDis, GrImpr, CjEsc, Pint, RevGer, Mon, CjLeit, Lubr, CjTab, CabImpr, Desm, AlimEscr, LavTratFer, RevGrMot, Lacr, RetCilCar, RevEletr, Solda, Outros, CodPeca, NomePeca, Quant, Valor, TotLinha, Obs, Data_Term_Serv, Hora_Term_Serv) Values('" & _
 TxtDataInicioServico.Text & "', '" & TxtHoraInicioServico.Text & "', " & _
 TxtNumOS.Text & ", '" & TxtNomeCliente.Text & "', '" & TxtProduto.Text & "', " & _
 ChkProg.Value & ", " & ChkReg.Value & ", " & ChkMaqAcid.Value & ", " & ChkGrAlim.Value & ", " & _
 ChkConjTecl.Value & ", " & ChkMaqTranc.Value & ", " & ChkPlBsEletr.Value & ", " & _
 ChkCjEntr.Value & ", " & ChkGrDis.Value & ", " & ChkGrImpr.Value & ", " & ChkCjEsc.Value & ", " & _
 ChkPint.Value & ", " & ChkRevGer.Value & ", " & ChkMon.Value & ", " & ChkCjLeit.Value & ", " & _
 ChkLubr.Value & ", " & ChkCjTab.Value & ", " & ChkCabImpr.Value & ", " & ChkDesm.Value & ", " & _
 ChkAlimEscr.Value & ", " & ChkLavTratFer.Value & ", " & ChkRevGrMot.Value & ", " & _
 ChkLacr.Value & ", " & ChkRetCilCar.Value & ", " & ChkRevEletr.Value & ", " & _
 ChkSolda.Value & ", " & ChkOutros.Value & ", '" & TxtCodPeca.Text & "', '" & TxtNomePeca.Text & "', " & _
 TxtQuant.Text & ", " & TxtValor.Text & ", " & TxtTotLinha.Text & "', '" & _
 TxtObs.Text & "', '" & _
 TxtDataTermServ.Text & "', '" & TxtHoraTermServ.Text & "');"
 .Execute
 End With
 MsgBox "Inclusão concluida com sucesso.", vbInformation + vbOKOnly + vbApplicationModal, "OK"
 LimparTela
 TxtNumOS.SetFocus

Saida:
Set cnnComando = Nothing
Exit Sub
errInclusao:
With Err
If .Number <> 0 Then
MsgBox "Houve erro na inclusão dos dados na tabela.", vbExclamation + vbOKOnly + vbApplicationModal, "Erro"
.Number = 0
End If
End With
End Sub
que eu acredito que seja porque deve estar mal sinalizado na sub??

Outra duvida é como que a tabela do Access vai entender que o um cliente pode utilizar mais de uma peça se os lançamentos na tabela ocorrem um a um???

se entenderam minhas duvidas aguardo ideias

agradeço.