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.Parameters("@Word").Value = Word
Dim dr As OleDb.OleDbDataReader
dr = cmdSelect.ExecuteReader
While dr.Read
m_Word = dr("Word")
m_length = dr("Length")
End While

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

Private Sub Find2_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Find2.Click
Dim sr As New streamreader("C:\vbprograms\findform\crossword.mdb ")
Dim finished As Boolean = False, line As String

'clean out the listbox first
Display.Items.Clear() '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.GetWord(WordFind.Text) 'works
Display.Items.Add(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!