Заполнение данными FlexGrid значениями из БД - VB

Option Explicit
Dim DB As adodb.Connection
Dim Emp As adodb.Recordset
Private Sub Form_Load()
    Dim N As Long
    Set DB = New adodb.Connection
    DB.CursorLocation = adUseClient
    DB.ConnectionString = "Provider=Microsoft.Jet.oledb.4.0;" & _
    "Data Source=" & App.Path & "\DB.MDB"
    DB.Open
    Set Emp = DB.Execute("SELECT * FROM tblEmployees")
    HFlexGrid.FixedCols = 0
    Set HFlexGrid.DataSource = Emp
    FlexGrid.Cols = Emp.Fields.Count
    FlexGrid.FixedCols = 0
    FlexGrid.Row = 0
    ' Заполняем столбцы
    For N = 0 To Emp.Fields.Count - 1
        FlexGrid.Col = N
        FlexGrid.Text = Emp.Fields(N).Name
    Next
    ' Заполняем строки
    Emp.MoveFirst
    FlexGrid.Rows = Emp.RecordCount + 1
    Do Until Emp.EOF
        For N = 0 To Emp.Fields.Count - 1
            FlexGrid.Col = N
            FlexGrid.Text = Emp.Fields(N).Value
        Next
        If FlexGrid.Row < FlexGrid.Rows - 1 Then FlexGrid.Row = FlexGrid.Row + 1
        Emp.MoveNext
    Loop
End Sub