LISTING 2.  Event Procedures and Constant Declaration for a Custom SQL Server Explorer 

"Callout A"
Const dbsname As String = "pubs"
"/End Callout A"

"Callout B"
Private Sub Form_Open(Cancel As Integer)

'Populate cboServerList control with
'legitimate database servers for this computer
Me.Controls("cboServerList").RowSource = _
    Module1.server_list()

End Sub
"/End Callout B"

"Callout C"
Private Sub cboServerList_AfterUpdate()

'Assign the row source property for the cboStoredProcList
'control based on the cboServerList control value
Forms("Form1").Controls("cboStoredProcList").RowSource = _
    Module1.stored_proc_list(Forms("Form1"). _
        Controls("cboServerList"), dbsname)

End Sub
"/End Callout C"


"Callout D"
Private Sub cboStoredProcList_AfterUpdate()
Dim str1 As String

'Use the cboStoredProcList value to reference
'the targeted stored procedure's text
txtStoredProcText.SetFocus
str1 = Me.Controls("cboStoredProcList").Value
str1 = Module1.srv1.Databases(dbsname). _
    StoredProcedures(str1, "dbo").Text
txtStoredProcText.Value = str1

End Sub
"/End Callout D"