یک Error کاملآ عجیب

[iranidesign]

من داخل یک فرم دیتا بیسی دستورات زیر را استفاده کردم ببینین :

    Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim results As String
        results = MsgBox("Are you sure ?", MsgBoxStyle.YesNo)
        If results = 6 Then
            Dim mybalance As String
            Dim hisbalance As String
            Dim myacc As String
            Dim hisacc As String
            Dim conn As New Data.SqlClient.SqlConnection("server=.;initial catalog=daneshjoo;user id=sa;password=;")
            conn.Open()
            Dim comm As New Data.SqlClient.SqlCommand("select balance from aspnet_Membership where userid='" & User.Identity.Name & "'", conn)
            Dim reader As Data.SqlClient.SqlDataReader = comm.ExecuteReader
            myacc = reader.Item(0)
            reader.Close()
            Dim commadd As New Data.SqlClient.SqlCommand("select balance from aspnet_Membership where Userid='" & payeeno.Text & "'", conn)
            Dim readeradd As Data.SqlClient.SqlDataReader = commadd.ExecuteReader
            hisacc = readeradd.Item(0)
            readeradd.Close()
            mybalance = myacc - amount.Text
            hisbalance = hisacc + amount.Text
            Dim redcomm As New Data.SqlClient.SqlCommand("update aspnet_Membership set balance=@balance where UserId='" & User.Identity.Name & "'", conn)
            redcomm.Parameters.AddWithValue("@balance", mybalance)
            redcomm.ExecuteNonQuery()
            Dim addcomm As New Data.SqlClient.SqlCommand("update aspnet_Membership set balance=@balance where UserId='" & payeeno.Text & "'", conn)
            addcomm.Parameters.AddWithValue("@balance", hisbalance)
            addcomm.ExecuteNonQuery()

            conn.Close()
            Session.Abandon()
        Else
            Response.Redirect("Accinfo.aspx")
        End If
    End Sub

وقتی برنامه رو اجرا میکنم این error رو از این خط میگیره

myacc = reader.Item(0)

و error اش هم اینه :

Invalid attempt to read when no data is present.​

این در حالی هستش که فیلد های دیتا بیس هم با عدد پر هستن ولی بازم این error رو میده واقآ من که تا حالا به این مشکل نخورده بودم

هر میتونه کمک کنه حلش کنیم خیلی بدفرم هست error رش ؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟

 

[Y2K]

قبل از اون دستور، دستور زیر رو بنویس

reader.read

 

[H_R]

بهتره که اینوری بنویسی

If(reader.read) Then

myacc = reader.Item(0)

End IF