Replace your fallowing code
Dim dr1 As SqlDataReader = cmd1.ExecuteReader()
If dr1.Read() Then
GridView1.DataSource = dr1
GridView1.DataBind()
Else
GridView1.EmptyDataText = "ABC"
End If
WITH
Dim dr1 As SqlDataReader =cmd.ExecuteReader(CommandBehavior.CloseConnection)
Dim dt As DataTable = New DataTable()
dt.Load(dr)
GridView1.DataSource = dr1
GridView1.DataBind()
For Details refer this
link