可以实现模糊查询了～～～

原来就是这么简单的啊，，^_^

代码：

Imports System.Data
Imports System.Data.SqlClient
Public Class datagridtest
    Inherits System.Web.UI.Page

    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        data("")  '绑定数据,第一次传入空字符串""
    End Sub
    Function data(ByVal strKeyword As String)
        Dim con As SqlConnection

        Dim da As SqlDataAdapter
        Dim ds As DataSet

'下面根据传入参数建立SQL语句
        Dim strSql As String
        If strKeyword = "" Then
            strSql = "Select * From Student_Table"
        Else
            strSql = "Select * From Student_Table Where xname Like '%" & strKeyword & "%' or college like '%" & strKeyword & "%'"
        End If
        con = New SqlConnection("server=(local);uid=sa;pwd=;database=lab")
        da = New SqlDataAdapter(strSql, con)
        ds = New DataSet
        da.Fill(ds, "Student_Table")

 

        DataGrid1.DataSource = ds
        DataGrid1.DataBind()

    End Function

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        data(Trim(TextBox1.Text))  'Trim表示去掉两边空格
    End Sub
End Class