Dim accApp As Access.Application
    Dim vbc As VBComponent
    Dim cm As CodeModule
    Dim i As Integer
    
    Set accApp = New Access.Application
    
    With accApp
        accApp.OpenCurrentDatabase "D:\My Databases\dbTest.mdb"
        Set vbc = accApp.VBE.ActiveVBProject.VBComponents("Module15")
        Set cm = vbc.CodeModule
        With cm
            i = .CountOfLines +  1 
            .InsertLines i, "Sub Test()"
            i = i +  1 
            .InsertLines i, _
            "    MsgBox ""Test!"", vbInformation"
            i = i +  1 
            .InsertLines i, "End Sub"
        End With
    End With
    
    Set cm = Nothing
    Set vbc = Nothing
    
    accApp.Quit
    Set accApp = Nothing