DataGrid doesn't display results from DataSet

I am using this code but it doesn't display anthing in the DataGrid after I clicked a submit button

        Dim MyConn As OleDbConnection = New OleDbConnection(ConfigurationSettings.AppSettings("strConn"))

        Dim MyCmd As OleDbCommand = New OleDbCommand("sp_RecordSearch", MyConn)

        MyCmd.CommandType = CommandType.StoredProcedure

        Dim objParam1 As OleDbParameter

        objParam1 = MyCmd.Parameters.Add(txtSearch.Text.Trim(), OleDbType.Char)

        Dim MyDataAdapter As OleDbDataAdapter = New OleDbDataAdapter(MyCmd)

        Dim MyDataSet As DataSet

        Try
            If MyConn.State = ConnectionState.Closed Then
                '   |||||   DB not already Open...so open it
                MyConn.Open()
            End If
            MyDataAdapter.Fill(MyDataSet)
            MyDataGrid1.DataSource = MyDataSet
            MyDataGrid1.DataBind()
        Catch ex As Exception
            'lblMessage.Text = "ERROR?"
        End Try