数据库名为tel ,表为电话，查询号码为输入号码的所有信息，老是报错。麻烦大家看一下哪里有错误

Public Class Form2
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim myconn As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=Application .StartupPath & ..\..\tel.mdb;")
Dim mystr As String = "Seclect * From 电话 WHERE 电话号码 =" ' & Me.TextBox1.Text.Trim() &""'
Dim myadapter As New OleDb.OleDbDataAdapter(mystr, myconn)
Dim mydatast As New DataSet
Dim mytable As New DataTable
myadapter.Fill(mydatast, "电话")
Me.DataGridView1.DataSource = mytable("电话")
End Sub

Dim mystr As String = "Seclect * From 电话 WHERE 电话号码 =" ' & Me.TextBox1.Text.Trim() &""'
这里错了
Dim mystr As String = "Seclect * From 电话 WHERE 电话号码 ='" & Me.TextBox1.Text.Trim() & "'"
你的代码明显提示你了，你还没发现？

错的地方太多了。手机不好打