炉石传说幻象制造者:以下VB代码那儿错了呢？

我是用Datagrid和adodc这两个数据库控件来实现数据库的查询的，可是我写的以下代码总是提示from子句有错误，请各位快帮帮我！

Private Sub Command1_Click()
Dim STRSQL As String
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\LURUDATA.mdb;Persist Security Info=False"
Adodc1.CommandType = adCmdText
Select Case tj1.ListIndex
Case tj1.ListIndex = 0
STRSQL = "select * from daikuantable where name=tjvalue1.text"
Adodc1.RecordSource = STRSQL
Set DataGrid1.DataSource = Adodc1
Adodc1.Refresh

Case tj1.ListIndex = 1
STRSQL = "select * from daikuantable where idnumber=tjvalue1.text"
Adodc1.RecordSource = STRSQL
Set DataGrid1.DataSource = Adodc1
Adodc1.Refresh

Case tj1.ListIndex = 2
STRSQL = "select * from daikuantable where studentnumber=tjvalue1.text"
Adodc1.RecordSource = STRSQL
Set DataGrid1.DataSource = Adodc1
Adodc1.Refresh

Case tj1.ListIndex = 3
STRSQL = "select * from daikuantable where daikuanyear=tjvalue1.text"
Adodc1.RecordSource = STRSQL
Set DataGrid1.DataSource = Adodc1
Adodc1.Refresh
End Select
End Sub