vb链接access数据库进行查询

在vb中链接access数据库进行条件查询， 我想要达到的结果：在文本框中输入条件，点击查询按钮，就能在gatagridview中显示。

但是现在点击查询后在gatagridview中不显示，是为什么

问题相关代码，请勿粘贴截图 Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click

    Dim da As New OleDb.OleDbDataAdapter
    Dim comm As New OleDb.OleDbCommand
    Dim ds As New DataSet
    comm.CommandText = " select 宿舍号 as 宿舍号,空床数 as 空床数,空房 as 空房,学院,班级, from sushe"
    comm.Connection = OleDbConnection1
    da.SelectCommand = comm

    If TextBox1.Text <> "" Then
        comm.CommandText = " Select * from sushe where 宿舍号 like ' " + TextBox1.Text + " % ' "
    End If
    OleDbConnection1.Open()
    da.Fill(ds, "Sushe")
    OleDbConnection1.Close()
    DataGridView2.DataSource = ds.Tables("Sushe")
End Sub

查询前：

查询后：

是不是查询语句有问题？
把多余的空格删掉试试。

comm.CommandText = " Select * from sushe where 宿舍号 like '" + TextBox1.Text + "% '"