在eVB上無法作出有效的索引動作

請教 各位前輩，

小弟於專題設計一個PDA搜尋資料庫的動作，
(PDA是ACER N50、開發程式是eVB、資料庫是POCKET ACCESS)
如在TextID1中，填入ID作找出該筆記錄的動作，
其資料依序填入TEXTBOX中(詳如下)；

過程中卻發現我把ID(ex:12345)填入TextID1中，就是無法找到該筆記錄，
可是如果在語法中，
把 "SELECT * FROM data WHERE ID1=' " & TextID1.Text & " ' "，
改 "SELECT * FROM data WHERE ID1=' 12345 ' "，
則成功顯示出該筆ID=12345的記錄，
此TextID1還是沒有索引的功能，只是靠語法找出該筆記錄。

但是，我是想要透過在TextBox填入ID，而找出資料，
可以請各位前輩幫我看看是哪裡有問題，謝謝！



該步驟的語法如下：

Private Sub CmdShow_Click()

Dim conn As ADOCE.Connection
Dim rs As ADOCE.Recordset

Set conn = CreateObject("ADOCE.Connection.3.1")
Set rs = CreateObject("ADOCE.Recordset.3.1")

conn.Open "\Program Files\DBMS.cdb"
rs.Open "SELECT * FROM data WHERE ID1='" & TextID1.Text & "'", conn

TextID2.Text = rs("ID2").value
TextName.Text = rs("工程名稱").value
TextPlace.Text = rs("澆置位置").value
TextDate.Text = rs("取樣日期").value
TextCar.Text = rs("取樣車號").value
Text1Dimension.Text = rs("尺寸").value
TextStrength.Text = rs("抗壓強度").value
TextCave.Text = rs("坍度").value
TextHeat.Text = rs("溫度").value
TextChlorine.Text = rs("含氯量").value

rs.Close
Set rs = Nothing

End Sub