如何讓text顯示資料庫內的資料像list清單一樣可以點選(編號：2604)

以下是我們查詢資料庫內的資料顯示於TextBox上.但我們想點選TextBox內的資料.不知如何操作
Private Sub Cmdsearch_Click()
Sname = "歌曲名稱"
NameInput = InputBox$("請輸入歌曲名稱:", "查詢資料")
Sname = Sname + " Like'*" & NameInput & "*'"
Ccust.Recordset.FindFirst Sname
If NameInput ＜＞ "" Then
　　　　If Ccust.Recordset.NoMatch Then
　　　　　　MsgBox "Sorry!查無此資料!", vbOK, "查詢結果"
　　　　　　
　　　　End If
　　End If
　　
End Sub