Dim con As SqlConnection con = New SqlConnection(\"server=chinna; uid=sa; pwd=136018@h; database=icms\") con.Open() Dim cmd As SqlCommand
You are missing the DataSource assignment.
Add GridView1.DataSource = rdr before you call DataBind.
GridView1.DataSource = rdr
Your If block should look like:
If rdr.Read() Then GridView1.Visible = True GridView1.DataSource = rdr GridView1.DataBind() End If