Code

I am looking for some code i am using an adoc1 control to the access database and the query code is below what i am looking for is if no results are found to disply a message box no plans Private Sub BuildSearchSQL() Dim sSQL As String ' We will look the [login to view URL] for building the SQL If [login to view URL] = [login to view URL] - 1 Then ' "All Plans" sSQL = "SELECT * FROM Plans" ElseIf [login to view URL] = 0 Then ' Nothing selected get lost from here Exit Sub ElseIf [login to view URL] = 1 Then sSQL = "SELECT * FROM Plans WHERE (Type= 'Fixed')" ElseIf [login to view URL] = 2 Then sSQL = "SELECT * FROM Plans WHERE (Type= 'Discount')" ElseIf [login to view URL] = 3 Then sSQL = "SELECT * FROM Plans WHERE (Type= 'Variable')" ElseIf [login to view URL] = 4 Then sSQL = "SELECT * FROM Plans WHERE (Type= 'Fixed' OR Type = 'Discount')" ElseIf [login to view URL] = 5 Then sSQL = "SELECT * FROM Plans WHERE (Type= 'Variable' OR Type = 'Discount')" ElseIf [login to view URL] = 6 Then sSQL = "SELECT * FROM Plans WHERE (Type= 'Variable' OR Type = 'Fixed')" ElseIf [login to view URL] = 6 Then ' if u add any thing else in the combo box ' please add the SQL End If ' Now initialise the form and show the form ' this is how one shoulf pas the data to the form ' Also you can define publice variable in the form and pass the ' data with [login to view URL] ' But the approch shown below is more convient and professional [login to view URL] sSQL [login to view URL] [login to view URL] Hope some one can help with this for me. ## Deliverables Complete and fully-functional working program(s) in executable form as well as complete source code of all work done. Complete copyrights to all work purchased.