مشکل پر کردن آرایه ها ---- کمک فوری فوری

[samo1025]

سلام دوستان
من یه جدول دارم که تعداد زیادی ستون داره. هر بار باید دو تا از رکوردهای جدول خونده بشه. یکی از رکوردها مال مقادیر اصلی و رکورد بعدی مقادیر وارد شده توسط کاربر هست. من می خوام این مقدارها با هم مقایسه بشن و در صورتیکه مقدار ورودی توسط کاربر با مقدار اصلی یکسان بود، عملیات خاصی انجام بشه (مثلا شمردن تعداد ورودی های منطبق)

برای بازخوانی داده ها، از datareader استفاده کردم. تا اینجام کار مشکلی نیست. اما به نظر می رسه آرایه ها با استفاده از داده ها پر نمی شن. کدی که استفاده کرده ام به صورت زیر هستش. لطفا دوستان راهنماییم کنند مشکل کار کجاست. خیلی عجله دارم. ممنون می شم اگه زودتر بهم بگید.
vb.net 2.0



Dim i As Integer = 1
Dim j As Integer = 1
Dim score As Integer = 0
Dim answers(40) As String
For m As Integer = 1 To m = 40 Step 1
answers(m) = "0"
Next
Dim Useranswers(40) As String
For n As Integer = 1 To n = 40 Step 1
answers(n) = "0"
Next
Dim cn1 As New SqlConnection
cn1.ConnectionString = System.Configuration.ConfigurationManager.Connecti onStrings("sqlConn").ConnectionString

' reading Answers:
Dim cmd1 As New SqlCommand
cmd1.Connection = cn1
cmd1.CommandText = "SELECT * FROM MyTable WHERE (userID=0 OR userID=@userID) "
cmd1.Parameters.AddWithValue("@userID", lbuserID.Text)

cn1.Open()
Dim reader As SqlDataReader = cmd1.ExecuteReader()
If (reader.HasRows) Then

While (reader.Read())
If (reader.GetString(1) = "0") Then
For i = 1 To i = 40 Step 1
answers(i) = reader.GetString(i + 2)
Next
Else
For j = 1 To j = 40 Step 1
Useranswers(j) = reader.GetString(j + 2)
Next
End If
End While
End If
reader.Close()
cmd1.Parameters.Clear()
cn1.Close()

'Compare answers:
For i = 1 To i = 40 Step 1
If (answers(i) = Useranswers(i)) Then
score = score + 1
End If
Next

[samo1025]

یعنی هیچ کس نیست به داد من برسه؟؟؟؟؟؟؟؟؟؟؟؟
:گریه:
:گریه:
:گریه: