Vb6 - remplir une msFlexGrid avec une BDD

Ma Solution : dans le Form_Load

Dim SQL As String
Dim Requete As Recordset
Dim vrai As Boolean
Dim x As String

SQL = "SELECT Num_Moniteur, Nom_Moniteur, Prenom_Moniteur, "
SQL = SQL & "tel_Moniteur, Adresse_Moniteur, "
SQL = SQL & "Code_Postal_Moniteur, Ville_Moniteur "
SQL = SQL & "FROM Moniteur "
SQL = SQL & "Order by Nom_Moniteur asc"

Set Requete = CapArmor.OpenRecordset(SQL)
If Not Requete.BOF Then
Requete.MoveFirst
vrai = True
x = 1

While vrai = True
If Not Requete.EOF Then
msfGrille.Rows = x + 1
msfGrille.Row = x
For i = 0 To 6
msfGrille.Col = i
msfGrille = Requete.Fields(i)
Next

Requete.MoveNext
x = x + 1
vrai = True
Else
vrai = False
End If
Wend
Else
msfGrille.Rows = 2
msfGrille.Row = 1
For i = 0 To 6
msfGrille.Col = i
msfGrille = ""
Next
msfGrille.Col = 1
msfGrille = "Pas d'enregistrement"
End If