Hi guys i have established a connection between my database and front end and now have the data i require displayed in a list box when i run my application, which is the code i have included below. i now need to amend the program so that this information is only displayed in the list box when i click a button, but am unsure how to attempt this.

Any help would be greatly appreciated.

dim conn
dim rs
set conn = Server.CreateObject("ADODB.Connection")

conn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source =" & Server.Mappath("./db1.mdb ") & _
"; Jet OLEDB:Database Password="

set rs = Server.CreateObject("ADODB.Recordset")

rs.Open "SELECT Word FROM Words WHERE Word LIKE 'A%' ", conn

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<title>Untitled Document</title>
<select name="list1" size="5">
Do While NOT rs.EOF
<option value='<%= rs.Fields("Word").Value%>'><%= rs.Fields("Word").Value%></option>
<object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=5,0,0,0" width="80" height="22">
<param name="movie" value="ButtonA.swf">
<param name="quality" value="high">
<embed src="ButtonA.swf" quality="high" pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash" type="application/x-shockwave-flash" width="80" height="22" ></embed>
<p>&nbsp; </p>
set rs=nothing
set conn=nothing