Visual Basic - Vincular SQL a un msflexgrid

Hola a todos, mi consulta es la siguientes tengo una consulta SQL por ejemplos

SELECT * FROM tabla_produc ORDER by pro_descri (tiene 80000 registro la tabla)

Como puede vinvular esa consulta en un Msflexgrid y como puedo paginar algun codigo y como puedo realizarlo.

Usa este codigo:

Dim db As Database
Dim rs As DAO.Recordset
Dim fields, i, j As Integer
Dim consql As String
Dim dbnm As String

gridMain.Clear
gridMain.Rows = 2

consql = "SELECT * "
consql = consql & "FROM Tabla "

dbnm = "Nombre de la Base de Datos"

Set db = OpenDatabase(App.Path & "\" & dbnm)
Set rs = db.OpenRecordset(consql)

fields = rs.fields.Count
gridMain.Cols = fields

For i = 0 To fields - 1
gridMain.TextMatrix(0, i) = rs.fields(i).Name
Next i

If Not (rs.BOF And rs.EOF) Then
Do While Not rs.EOF
For j = 0 To fields - 1
gridMain.TextMatrix(gridMain.Rows - 1, j) = rs.fields(j).Value
Next j
gridMain.Rows = gridMain.Rows + 1
rs.MoveNext
Loop
End If

rs.Close

usa este codigo y sustiyuye tu consulta en la variable consql y veras como funciona.

Saludos.