魔兽世界7.2怎么转服:以下代码那儿错了呢？急！！

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

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 namer='" & 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 studentnumberr='" & 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
现在不是提示FROM子句有错误，而是当tj1的listindex的值为0时，点击查询按钮就会选择出一条空白记录，而当为1、2、3时，点击查询按钮没有任何反映。