Private Sub btnSearch_Click(ByVal sender As System.Object, 
                   ByVal e As System.EventArgs) Handles btnSearch.Click
    Dim strConnectionString As String = 
                 "Data Source=(local);Initial Catalog=pubs;
                                    User ID=pubs;Password=search"
    Dim strQuery As String = "SELECT * FROM titles"
    If txtSearch.Text.Length > 0 Then
        strQuery &= " WHERE title LIKE '%" & txtSearch.Text & "%'"
    End If
    Dim objAdapter As New SqlClient.SqlDataAdapter
    objAdapter.SelectCommand = New SqlClient.SqlCommand(strQuery, 
                  New SqlClient.SqlConnection(strConnectionString))
    Dim objDataSet As New DataSet
    objAdapter.Fill(objDataSet)

    grdResults.DataSource = objDataSet.Tables(0)
    grdResults.DataBind()
End Sub

Example 3: Retrieving data and binding to the DataGrid.