rst.Open "SELECT * FROM operations", Cn, adOpenStatic, adLockOptimistic
    
    rst.AddNew: rst("m_type") = 1
                rst("id_bk") = 1
                rst("doc_number") = Trim(Me.doc_number)
                rst("doc_data") = Me.doc_date.Text
                rst("20_reference") = Trim(Me.snd_ref)
                rst("21_reference_add") = ""
                rst("23_oper_code") = Me.kop.Text
                rst("32_cur_code") = Me.curr_code.Text
                rst("32_data_val") = Me.doc_dat_val.Text
                
                lcl_sum32 = Replace(CCur(Me.doc_sum.Text), ",", ".")
                rst("32_summ") = lcl_sum32 'CCur(Replace(Me.doc_sum.Text, ",", "."))

rst.Update

rst.Close
Set rst = Nothing                

 rst.Open "SELECT * FROM operations Where operations.id_oper=" & Me.oper_id & " ", _
Cn, adOpenStatic, adLockOptimistic
    
    rst("m_type") = 1
                rst("id_bk") = 1
                rst("doc_number") = Trim(Me.doc_number)
                rst("doc_data") = Me.doc_date.Text
                rst("20_reference") = Trim(Me.snd_ref)
                rst("21_reference_add") = ""
                rst("23_oper_code") = Me.kop.Text
                rst("32_cur_code") = Me.curr_code.Text
                rst("32_data_val") = Me.doc_dat_val.Text
                
                lcl_sum32 = Replace(CCur(Me.doc_sum.Text), ",", ".")
                rst("32_summ") = lcl_sum32 'CCur(Replace(Me.doc_sum.Text, ",", "."))

rst.Update

rst.Close
Set rst = Nothing

1) 
    rst("32_summ") = CCur(Me.doc_sum.Text)

2) 
                rst("32_summ") = CCur(Replace(Me.doc_sum.Text, ",", "."))

3)             lcl_sum32 = Replace(CCur(Me.doc_sum.Text), ",", ".")
                rst("32_summ") = lcl_sum32

4)             lcl_sum32 = Ссгк(Replace(Me.doc_sum.Text), ",", ".")
                rst("32_summ") = lcl_sum32

DIM lcl_sum32 as Currency
......
If InStr(Me.doc_sum.Text, ",") <> 0 Then
                        lcl_sum32 =CCur( Replace(Me.doc_sum.Text, ",", "."))

                    Else
                        lcl_sum32 = Ccur(Me.doc_sum.Text)
End If

Private Sub doc_sum_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then
            Me.ComList_ValOut.SetFocus
        Else
            KeyAscii = VNUM(KeyAscii, fld_OpSum, Me.fld_OpSum.Text, True, True)
    End If
End Sub

Public Function VNUM(intAscii As Integer, ctrControl As Control, strText As String, _
        Optional bSign As Boolean = False, _
        Optional bPoint As Boolean = False) As Integer
On Error GoTo errlbl

    Dim i As Integer
    ' Ввод символа по умолчанию
    VNUM = intAscii
    Select Case intAscii
        Case 8: ' Клавиша Backspace
        Case 45:
            If (Not bSign) Or (ctrControl.SelStart > 0) Or (InStr(strText, "-")) Or _
                (InStr(strText, "+")) Then VNUM = 0
        Case 44, 46
            If (Not bPoint) Or (InStr(strText, ".")) Or (InStr(strText, ",")) Then VNUM = 0
        Case 48 To 57: ' Цифры от 0 до 9
        Case Else
            VNUM = "0" ' Все остальное
            For i = 1 To 5
                Beep
            Next
    End Select
    
    Exit Function

errlbl:
    Me.MousePointer = 0
    MsgBox "Форма < Main >, процедура < btn_CurReq_Click >" & Chr(13) & _
            Err.Description, vbCritical + vbOKOnly, "Ошибка: " & Err.Number

End Function

Function check_symb(str, name As String) As Boolean
On Error GoTo errlbl
    Dim pole As String
    Dim symb As String
    Dim l As Integer
    Dim i As Integer
    
        l = 0
        i = 1
        pole = ""
        symb = ""
        pole = str
        
        check_symb = False
        
        l = Len(Trim(pole))
        
        If Left(pole, 1) = ":" Or Left(pole, 1) = "-" Then
                MsgBox "Использование символов : и - в начале строки ввода запрещено!", vbCritical, "Ошибка"
                check_symb = True
            Else
            
                While i <= l
                    symb = Mid(Trim(pole), i, 1)
                    Select Case UCase(symb)
                        Case "0", "1", "2", "3", "4", "5", "6", "7", "8", "9", "(", ")", ",", ".", "-", "'", "?", ":", "+", "/", _
                                "A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O", "P", "Q", "R", "S", "T", _
                                "U", "V", "W", "X", "Y", "Z", " "
                        Case Else
                            MsgBox "Введен недопустимый символ в поле " & name, vbCritical, ""
                            check_symb = True
                            Exit Function
                    End Select
                    symb = ""
                    i = i + 1
                Wend
        End If
    Exit Function

errlbl:

    MsgBox "Форма < Main >, процедура < btn_CurReq_Click >" & Chr(13) & _
            Err.Description, vbCritical + vbOKOnly, "Ошибка: " & Err.Number

End Function

Delimiter = Format$(0.1, ".")

CCur(Replace(Replace(Text1, ".", Delimiter), ",", Delimiter))