Menambahkan karakter pada syntax di MS Access

Saya punya Aplikasi berbasis Ms Access.
Nah, masalah yang saya alami adalah saya ingin menambahkan code barcode di reportnya. Saya menggunakan jenis font free 3 of 9 (Code 39).
Sebenarnya sih sudah bisa dan terbaca, hanya saja masih harus menambahkan * pada kodenya.
misalnya : *(kodenya)* <tanpa dalam kurung>
Kalau misalkan tiap kali input harus selalu menambahkan karakter itu, rasanya cukup menyiksa si inputer. Apakah ada solusi syntax untuk menambahkan karakter * itu?

Code:

Private Sub Command1_Click()
Dim msql As String
Dim START, FINISH, MODEL, CODE As String
Dim qty, QTYNO As Integer

                                
msql = " Select * From Table1" & " Order By MODEL"
Set rs1 = cnn.Execute(msql)

If Not rs1.EOF Then
    msql = " Delete From Table2"
    cnn.Execute (msql)
    rs1.MoveFirst
                        
    Do While Not rs1.EOF
        START = rs1.Fields("START")
        FINISH = rs1.Fields("FINISH")
        MODEL = rs1.Fields("MODEL")
        CODE = rs1.Fields("CODE")
        qty = rs1.Fields("QTY")
        QTYNO = 1
                            
        Do While QTYNO <= qty
            msql = " Insert Into Table2(START,FINISH,MODEL,CODE,QTYNO)" & " Values('" & START & "','" & FINISH & "','" & MODEL & "','" & CODE & "','" & QTYNO & "')"
            QTYNO = QTYNO + 1
            cnn.Execute (msql)
            Child1.Requery
        Loop

        If Not rs1.EOF Then
            rs1.MoveNext
        End If
    Loop
    DoCmd.OpenReport "TABLE1", acViewPreview
    DoCmd.PrintOut
    DoCmd.Close

Else
    MsgBox "Data tidak boleh kosong !!", vbOKOnly, "Konfirmasi"
    Text1.SetFocus
End If
rs1.Close
End Sub

Sebenarnya tidak perlu serumit itu kalau menggunakan Access.
Gunakan "Access Way" atau cara / style pemakaian Access, yaitu data pada form yang dikaitkan dengan sumber data secara langsung (properti Record Source) jadi tidak perlu menggunakan coding untuk menyimpan data.

Untuk menambahkan char "*" pada teks yang di input pemakai secara otomatis, tinggal tambahkan sedikit procedure pada event After Update, misal:

Sub txtKode_AfterUpdate()
me.txtKode = me.txtKode & "*"
End Sub

Semoga menginspirasi, walaupun posting pertanyaannya sudah lama banget ya...