Dim db As Database 
Dim rs As Recordset 
Dim sSQL As String 
Dim i% 
Dim j% 
Dim x 
 
Set db = CurrentDb 
Set rs = db.OpenRecordset("Select * from TAB_PERSONAL;") 
 
Me.FLexGrid.Object.Rows = Rs.RecordCount
Me.FLexGrid.Object.Cols = Rs.Fields.Count
 
i = 1: j = 1 
 
If Not (rs.EOF And rs.BOF) Then 
  rs.MoveFirst 
  Do While rs.EOF = False 
    j = 2 
    For Each x In rs.Fields 
      Me.FLexGrid.TextMatrix(i, j) = "" & x.Value
      j = j + 1 
    Next 
    rs.MoveNext 
    i = i + 1 
  Loop 
End If