Работа с БД - VB

Формулировка задачи:

Подскажите, что я делаю не правильно:

 Dim conn As New OleDbConnection
        conn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=D:\DB\DB.accdb; Persist Security Info=False;"
        conn.Open()
        Dim a1 As String
        a1 = TextBox4.Text
        Dim c As New OleDbCommand
        c.Connection = conn
        c.CommandText = "select from Base where Цена =" & a1
        Dim ds As New DataSet
        Dim da As New OleDbDataAdapter(c)
        da.Fill(ds, "Base")
        Grid2.DataSource = ds
        Grid2.DataMember = "Base"
        c.ExecuteNonQuery()

Если делать select без условий всё нормально, если же нужно выбрать из базы только строки с определённым значением, задающимся в текстбоксе выдаёт ошибку

Решение задачи: «Работа с БД»

textual
                            Листинг программы 
                        
                            where Цена ='" & Str(a1) & "'"