SQL para toda una tabla, registro a registro

[Civic]

Buenos dias ante todo, y ante manos le doy las gracias al que me pueda ayudar. Hice una consulta de una tabla llamada clientes, para que se muestren los datos que tengo, en un MSFlexGrid pero no me funciona la siguiente instruccion que hago: ¿Me sale un Error en la parte? While Not ("clientes.EOF")

Private Sub Command1_Click()
Dim Rcli As New ADODB.Recordset
sql = "select IdCliente,Nombre,Direccion from clientes "
Rcli.Open sql, db
If Rcli.EOF And Rcli.BOF Then
MsgBox "No hay registro"
Else
Fila = 1
Rcli.MoveFirst
While Not ("clientes.EOF")
Fila = Fila + 1
Flex.Rows = Fila
Flex.Row = Fila - 1
Flex.Col = 0
Flex.Text = Rcli.Fields("IdCliente")
Flex.Col = 1
Flex.Text = Rcli.Fields("Nombre")
Flex.Col = 2
Flex.Text = Rcli(2)
Rcli.MoveNext
Wend
End If
End Sub