Dim con As SqlConnection con = New SqlConnection(\"server=chinna; uid=sa; pwd=136018@h; database=icms\") con.Open() Dim cmd As SqlCommand
What is your error or are you just getting a null for rdr?
I don't see an outpout paramenter. You need one. You only have an input parameter.