VALORES DOBRADOS NA TABELA, PQ?

Private Sub cmdOk_Click()
    Dim mn As Integer
    Dim yer As Integer
    On Error GoTo erro ''''''''''''''''''''''''' aviso q faltou algo
    cmd.Execute
    mn = Format(ldate, "mm")
    yer = Format(ldate, "yyyy")
    If cboCustomername.Text = "" Then
        MsgBox "Informe nome do cliente.", vbExclamation, "Compras/Vendas - Faturamento"
        cboCustomername.SetFocus
        Exit Sub
    End If
   
    For k = 0 To q
        If MSFlexGrid1.TextMatrix(rrr, ccc) = "" Or MSFlexGrid1.TextMatrix(rrr, ccc + 1) = "" Or MSFlexGrid1.TextMatrix(rrr, ccc + 2) = "" Or MSFlexGrid1.TextMatrix(rrr, ccc + 3) = "" Then
        Else
                cmd.ActiveConnection = conn
            cmd.CommandText = "insert into orcamento values('" & cboCustomername.Text & "','" & _
                MSFlexGrid1.TextMatrix(rrr, ccc) & "','" & _
                txtbillno.Text & "','" & _
                ldate.Text & "','" & _
                MSFlexGrid1.TextMatrix(rrr, ccc + 1) & _
                "'," & Replace$(MSFlexGrid1.TextMatrix(rrr, ccc + 3), ",", ".") & _
                "," & Replace$(MSFlexGrid1.TextMatrix(rrr, 3), ",", ".") & ")"
            cmd.Execute
            
        End If
    Next k
    Call MsgBox("Sua venda foi efetuada corretamente.", vbInformation, "Informativo")
    txtbillno.Text = Code
    cmdok.Enabled = False
    Unload Me
    
erro:
  Form_Load
  
End Sub