Veritabanımızda "AnketSorular" isminde bir tablo ve tabloda "Soru" isminde bir alanımız olduğunu varsayarsak,
Kod:<%
strSoru="Kayıt bulunamadı"
Set Conn=Server.CreateObject("ADODB.Connection")
Conn.Open "Provider= Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.Mappath("anket.mdb")
Set Rs=Conn.Execute("Select Soru From AnketSorular")
If Not Rs.BOF Or Not Rs.EOF Then
strSoru=Rs("Soru")
End If
Set Rs=Nothing
Conn.Close
Set Conn=Nothing
Response.Write(strSoru)
%>