Dim DBConnection As Data.OleDb.OleDbConnection
Dim Reader As OleDb.OleDbDataReader
Dim CurrentRow As Row
 
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles MyBase.Load
        DBConnection = New System.Data.OleDb.OleDbConnection( _
            "Provider=Microsoft.Jet.OLEDB.4.0;" & _
            "Data Source=data.mdb")
        DBConnection.Open()
End Sub

Private Sub DataGridView1_CellValueNeeded(ByVal sender As Object, ByVal e As _
  System.Windows.Forms.DataGridViewCellValueEventArgs) Handles _
  Lst.CellValueNeeded
        RowFetch2(e)
End Sub
 
Private Sub RowFetch2(ByVal e As _
  System.Windows.Forms.DataGridViewCellValueEventArgs)
        If CInt(CurrentRow.ID) <> e.RowIndex + 1 Then
            Dim StrCmd As String = String.Format("SELECT * FROM `DataTable`" & _
              "WHERE `ID`={0};", e.RowIndex + 1)
            Dim Cmd As New Data.OleDb.OleDbCommand(StrCmd, DBConnection)
            Reader = Cmd.ExecuteReader
            Cmd.Dispose()
            Cmd = Nothing
            Reader.Read()
            CurrentRow = Row.Create(Reader)
            Reader.Close()
 
        End If
 
        If e.ColumnIndex = 0 Then
            e.Value = CurrentRow.ID
        Else
            e.Value = CurrentRow.Text
        End If
    End Sub