Visual Basic

Set Conn = New ADODB.Connection
Conn.Open strDSNName
Set rs = New ADODB.Recordset
gstrSQL = "SELECT * from Judges;"
Set rs.ActiveConnection = Conn
rs.CursorLocation = adUseClient
rs.CursorType = adOpenStatic
rs.LockType = adLockBatchOptimistic

rs.Open strSQL
Conn.Close
Set Conn = Nothing

rs.MoveFirst
Do Until rs.EOF
    rs.Fields("Response3").Value = rs.Fields("Response2").Value
    rs.Fields("AssignedCat3").Value = rs.Fields("AssignedCat2").Value
    ...
20 more lines setting field3 to field2
...
    rs.MoveNext
Loop
Set Conn = New ADODB.Connection
Conn.Open strDSNName
rs.ActiveConnection = Conn
rs.UpdateBatch
rs.close
set rs = nothing
conn.close
set conn.close

query ="SELECT TABLE1.FID FROM TABLE2 WHERE TABLE1.ID = TABLE2.ID" ---StoredProcedure

Dim sqlRead As SqlDataReader

cmd.CommandType = CommandType.StoredProcedure 
sqlRead = cmd.ExecuteReader 

While sqlRead .Read()
  Dim str as String = sqlRead("FID") '-------> error here!
End While

Public Class Form1

    WithEvents trackbar1 As New TrackBar
    WithEvents DataGridView1 As New DataGridView
    Dim label1 As New Label

    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load

        'trackbar
        Me.Controls.Add(trackbar1)
        trackbar1.Location = New Point(0, 150)
        trackbar1.Size = New Size(220, 140)
        trackbar1.Maximum = 40
        trackbar1.LargeChange = 1
        trackbar1.SmallChange = 1
        AddHandler trackbar1.Scroll, AddressOf TrackBar1_ScrollHandler

        'labels
        Me.Controls.Add(label1)
        label1.Location = New Point(0, 200)
        label1.Size = New Size(220, 140)
        label1.Text = "Only rows with values in Column2 greater than 0 are visible"

        'datagridview
        Me.Controls.Add(DataGridView1)
        DataGridView1.Location = New Point(0, 0)
        DataGridView1.Size = New Size(220, 140)
        DataGridView1.AllowUserToAddRows = False
        DataGridView1.RowHeadersVisible = False
        DataGridView1.TabIndex = 1

        'adding columns
        Dim column1 = New DataGridViewTextBoxColumn()
        column1.Name = "Column 1"
        column1.ValueType = GetType(System.DateTime)
        column1.ReadOnly = True
        DataGridView1.Columns.Add(column1)
        Dim column2 = New DataGridViewTextBoxColumn()
        column2.Name = "Column 2"
        column2.ValueType = GetType(System.Int64)
        column2.ReadOnly = True
        DataGridView1.Columns.Add(column2)

        'adding example data
        Dim rnd1 As New Random
        For i As Integer = 1 To 5000
            DataGridView1.Rows.Add(DateSerial(2011, rnd1.Next(1, 12), rnd1.Next(1, 28)), rnd1.Next(0, 40))
        Next

    End Sub

    Private Sub TrackBar1_ScrollHandler(sender As System.Object, e As System.EventArgs)

        For i As Long = 0 To (DataGridView1.Rows.Count - 1)
            If DataGridView1.Rows(i).Cells("Column 2").Value < trackbar1.Value Then
                DataGridView1.Rows(i).Visible = False
            Else
                DataGridView1.Rows(i).Visible = True
            End If
        Next

        label1.Text = "Only rows with values in Column2 greater than " + trackbar1.Value.ToString + " are visible"

    End Sub
End Class