از این کد برای connection استفاده کن
Dim STR As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _path & ";Extended Properties=""Excel 8.0;HDR=yes;IMEX=1"""
Dim CONN As New OleDbConnection(STR)
Dim CMD As String = "SELECT <field name> From [MySheet$] where <field name> = <your parameter>"
Dim COMM As New OleDbCommand(CMD, CONN)
Dim MYREADER As OleDbDataReader = COMM.ExecuteReader
MYREADER.Read()
Dim a As Integer = MYREADER.GetValue(0)
_path رو باید خودت بهش بدی. یه متغیر string که جای فابل اکسل رو نشون میده
بقیه کد هم نیاز به تکمیل داره مثلاً cmd که تکمیلش با خودته.
برای کمک یک کد cmd رو می نویسم...
cmd="Select QSTN_ID FROM [question$] Where QSTN_ID='101'"
این کد فیلد QSTN_ID رو از شیت question برمیگرداند در جایی که برابر با 101 باشه.
برای کار تو این طوری بهتره :
cmd="Select QSTN_ID FROM [question$] Where QSTN_ID='" & textbox1.text.trim & "'"