Option Compare Database
Private Sub btnHome_Click()
CloseFormAndOpenForm Me.Name, "frmHome"
End Sub

Private Sub btnOpenQuery_Click()
If Left(lstQueries.ItemData(lstQueries.ListIndex), 6) = "qrysel" Then
Me.subfrmQuery.Visible = True
Me.subfrmQuery.SourceObject = "Query." & lstQueries.ItemData(lstQueries.ListIndex)
Me.lblSub.Caption = lstQueries.ItemData(lstQueries.ListIndex)
ElseIf Left(lstQueries.ItemData(lstQueries.ListIndex), 6) = "qryupd" Then
DoCmd.SetWarnings False
DoCmd.OpenQuery lstQueries.ItemData(lstQueries.ListIndex)
DoCmd.SetWarnings True
MsgBox "Query Executed successfully"
End If

End Sub

Private Sub Form_Load()
DoCmd.SetWarnings True
Me.subfrmQuery.Visible = False
Me.lstQueries.RowSourceType = "Table/Query"
Me.lstQueries.RowSource = "SELECT MSysObjects.Name FROM MSysObjects WHERE (((MSysObjects.Type)=" + GetObjectCode("query") + ") AND ((Left([Name],3))= 'qry')) ORDER BY MSysObjects.Name"
Me.lstQueries.Selected(0) = True
End Sub