Try changing the frmSearch_Load in the following manner
Private Sub frmSearch_Load(sender As Object, e As EventArgs) Handles MyBase.Load
db.connect()
Dim sqlselect As String
Dim ds As New DataSet
If Not Page.IsPostBack Then
sqlselect = "SELECT * FROM tbltest"
ds = db.sqlSelect(sqlselect)
grdSearch.DataSource = ds.Tables(0)
End If
End Sub
Hope the above code helps.