vb.net 2003: Displaying multiple records....

[Bill Brinkworth]

it's would be simple in Access, but seems to be harder in VB. I want to
enter part of a word and search an access table, and display all instances of
words containing those letters in a box (say a listbox). I can get one word
in, but i can't make it go back and get the others and relist. Can you help?
Here's what i have:

Public Property word() As String
Get
Return m_Word
End Get
Set(ByVal Value As String)
m_Word = Value
End Set
End Property

Public Sub GetWord(ByVal Word As String)
con.Open()
cmdSelect.Param eters("@Word"). Value = Word
Dim dr As OleDb.OleDbData Reader
dr = cmdSelect.Execu teReader
While dr.Read
m_Word = dr("Word")
m_length = dr("Length")
End While

dr.Close()
con.Close()
End Sub

Private Sub Find2_Click(ByV al sender As System.Object, ByVal e As
System.EventArg s) Handles Find2.Click
Dim sr As New streamreader("C :\vbprograms\fi ndform\crosswor d.mdb")
Dim finished As Boolean = False, line As String

'clean out the listbox first
Display.Items.C lear() 'display is the listbox

m_foundword = New FindWord 'works

' While Not finished
'line = sr.ReadLine
'If line Is Nothing Then
' finished = True
' Else
m_foundword.Get Word(WordFind.T ext) 'works
Display.Items.A dd(m_foundword. word) 'display is the listbox
' End If
' End While
MessageBox.Show ("Done reading!")
End Sub

data connection command text is:
SELECT Dictionary.* FROM Dictionary WHERE (Word LIKE [@WordFind])

thanks you so much for your help!