Как искать без строковых данных?

  Try
        Dim str As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source = " & Application.StartupPath + "\TPDB.accdb"
        Dim con As New OleDbConnection(str)

как искать без строковых данных?

        Dim cmd As New OleDbCommand("select * from TestLists where T_Name like " + Des1.Text + "", con)

Ошибка этого сообщения «синтаксическая ошибка в группе по предложению».

        Dim adpt As New OleDbDataAdapter(cmd)
        Dim ds As New DataSet() 

        adpt.Fill(ds, "TestLists")
        DataGridView2.DataSource = ds.Tables(0)



        Dim i As Integer
        i = DataGridView2.CurrentRow.Index
        Amnt1.Text = DataGridView2.Item(2, i).Value 


    Catch ex As Exception
        MsgBox(ex.Message)
    End Try