Вставка записей в таблицу Access через VB6

Формулировка задачи:

Всем добрый день! Уважаемые, нужна ваша помощь. Возникла такая проблема. В разработке для ввода данных в таблицу использую инструкцию INSERT INTO

                    Листинг программы
                
        SQLTipDoc = "INSERT INTO tblPNAKL " & _
        "(NOMDOKP,GODP,KODTOV,KODFIRM,TIPDOK,INVOIS,EDIZM,VESZA1,QUANDV)" & _
        " VALUES ('" & Str(numdok) & "','" & Str(god) & "','" & Str(txtMaterial_IZnomer) & "','" & Str(txtFirmaIZnomer) & "','ГђГ*Г±ГµГ®Г¤'" & ",'" & txtInvoisNumberIz & "'," & _
        "'" & txtEdIzm.Text & "','" & CDbl(txtVesZa1.Text) & "','" & CDbl(txtKolVvoda.Text) & "')"
conn.Execute SQLTipDoc

Так вот, если например, txtVesZa1.Text или txtKolVvoda.Text пустое, то выходит ошибка: Run-time error '13': Type mismatch. Уважаемые, как сделать так, чтобы инструкция работала даже при том, что txtVesZa1.Text или txtKolVvoda.Text может быть пустым ? Всем спасибо за отклик

Решение задачи: «Вставка записей в таблицу Access через VB6»

textual
                            Листинг программы 
                        
Public Function zamena(r)
    Dim s
    s = Format(0, ".")
    If s = "." Then zamena = Replace(r, ",", s) Else zamena = Replace(r, ".", s)
End Function