Code:
Private Sub lstglo_Click()
txtglo.Value = lstglo.Value
Dim rs As DAO.Recordset
Dim str As String
txtglo.SetFocus
str = "Select glosssary.meaning,glossary.description, glossary.specification, glossary.hyperlink from Glossary where word = '" & txtglo.Text & "';"
[B][I]Set rs = CurrentDb.OpenRecordset("Select glosssary.meaning,glossary.description, glossary.specification, glossary.hyperlink from Glossary where word = '" & txtglo.Text & "';")[/I][/B]
lblglomean.Caption = rs.Fields("Meaning").Value
lblglodesc.Caption = rs.Fields("Description").Value
lblglospec.Caption = rs.Fields("Specification").Value
lblglohyp.Caption = rs.Fields("Hyperlink").Value
End Sub
Comment