Change following query
Dim cmd1 As New SqlCommand("insert into users1(user_no,username,password,email,institname,institlisn,lisn_path,stutus,mobile,city,area,town,cord_x,cord_y,map_name,map_path)values(@user_no,@username,@password,@email,@institname,@institlisn,@lisn_path,@stutus,@mobile,@city,@area,@town,@cord_x,@cord_y,@map_name,@map_path)", conn)
to below query
Dim cmd1 As New SqlCommand("select user_no,username,password,email,institname,institlisn,lisn_path,stutus,mobile,city,area,town,cord_x,cord_y,map_name,map_path from users1", conn)