Dim LocalMyListView As ListView

Public LocalMyListView As ListView

Dim db As Database
Dim rstCustomers As DAO.Recordset
Set db = OpenDatabase("C:\ADLib\DbLib\MainLib.mdb")

Public db As Database
Public rstCustomers As DAO.Recordset

Sub Main()
    Set db = OpenDatabase("C:\ADLib\DbLib\MainLib.mdb")
    Set fMainForm = New frmMain
    fMainForm.Show
End Sub

            For i = tvTreeView.SelectedItem.Parent.LastSibling.Index To (tvTreeView.SelectedItem.Parent.Index) +  1  Step - 1 
                tvTreeView.Nodes.Remove (tvTreeView.Nodes(i).Key)
            Next i

Private Sub BuildSecondaryNode(Parent As Integer)

    Dim S1, S2 As String
    Dim RecursRecordSet1, RecursRecordSet2  As DAO.Recordset
    
    Set RecursRecordSet1 = db.OpenRecordset("SELECT [T_Components].ID, [T_Components].ParentID, [T_Components].Name FROM [T_Components] WHERE ((([T_Components].ParentID)=" & Parent & ") AND (([T_Components].[Footprint Ref]) is null)) ORDER BY T_Components.ID;", , dbOpenForwardOnly)
    If RecursRecordSet1.RecordCount <>  0  Then
        RecursRecordSet1.MoveFirst
        
        While Not RecursRecordSet1.EOF
            S1 = "OneClosed"
            S2 = "OneOpen"
            
            Set RecursRecordSet2 = db.OpenRecordset("SELECT * FROM [T_Components] WHERE ((([T_Components].ParentID)=" & RecursRecordSet1!ID & ")) ;", , dbOpenForwardOnly)
            If RecursRecordSet2.RecordCount <>  0  Then
                RecursRecordSet2.MoveFirst
                S1 = "ManyClosed"
                S2 = "ManyOpen"
            End If
            
            RecursRecordSet2.Close
            tvTreeView.Nodes.Add "@" & Parent, tvwChild, "@" & RecursRecordSet1!ID, RecursRecordSet1!Name, S1, S2
            
            Call BuildSecondaryNode(RecursRecordSet1!ID)
            
            RecursRecordSet1.MoveNext
            
        Wend
        
    End If
    
End Sub

If RecursRecordSet1.RecordCount <>  0  Then
RecursRecordSet1.MoveFirst
...

   
    RecursRecordSet1.Close
    Set RecursRecordSet1=Nothing

Public db As Database
Public rstCustomers, rstCustomers2 As DAO.Recordset

Sub Main()
    Dim PathToBaseProject As String
    
    PathToBaseProject = App.Path & "\MainLib.mdb"
    Set db = OpenDatabase(PathToBaseProject)
...
End Sub