Sub GetCodeModule()
Dim AccApp As Object
Dim cmts As Object, cmt As Object, mdl As Object
'Если установить ссылку на: _
  "Microsoft Visual Basic for Applications Extensibility" _
  то можно указать специфические типы объектов.
'Dim cmts As VBComponents, cmt As VBComponent, mdl As CodeModule
    
'GetObject возвращает ссылку на открытую БД, или открывает _
  БД в новом окне. DoEvents - задержка, чтоб приложение _
  открылось. Одного может быть и недостаточно.
 
   Set AccApp = GetObject("Путь к БД")
    DoEvents

'Создается ссылка на CodeModule модуля  "basMain" 
    Set cmts = AccApp.VBE.ActiveVBProject.VBComponents
    Set cmt = cmts( "basMain" )
    Set mdl = cmt.CodeModule
 MsgBox  "Всего строк: "  & mdl.CountOfLines
End Sub