Problema flex grid

Gente tengo creada una conexion con el dataenvironment, en los cuales agrego comandos con la sentencia SQL y luego la ejecuto desde visual asi:

Código:

NombreDE.NombreComando [Parametros]

El tema es que yo estoy testeando para mostrar registros, y me cargan bien pero ingresa una línea de mas totalmente en blanco, este es el code que uso para cargar los datos al flexgrid:

Código

With Dev
     .cmdCliente
      For i = 1 To .rscmdCliente.RecordCount
          While Not .rscmdCliente.EOF
                ReDim Preserve LidSocio(.rscmdCliente.RecordCount)
                FlexClientes.Rows = FlexClientes.Rows + 1
                FlexClientes.TextMatrix(i, 0) = .rscmdCliente.Fields("IdSocio") 
                LidSocio(i) = .rscmdCliente.Fields("IdSocio") 'establece el id del socio para editar
                FlexClientes.TextMatrix(i, 1) = .rscmdCliente.Fields("categoria")
                FlexClientes.TextMatrix(i, 2) = .rscmdCliente.Fields("nombre")
                FlexClientes.TextMatrix(i, 3) = .rscmdCliente.Fields("apellido")
                FlexClientes.TextMatrix(i, 4) = .rscmdCliente.Fields("celular")
                FlexClientes.TextMatrix(i, 5) = .rscmdCliente.Fields("titulo")
                FlexClientes.TextMatrix(i, 6) = .rscmdCliente.Fields("trabajo")
                FlexClientes.TextMatrix(i, 7) = .rscmdCliente.Fields("cumpleaños")
                FlexClientes.TextMatrix(i, 8) = .rscmdCliente.Fields("nacionalidad")
                FlexClientes.TextMatrix(i, 9) = .rscmdCliente.Fields("extras")
                i = i + 1
                .rscmdCliente.MoveNext
          Wend
      Next i
      .rscmdCliente.Close
      Set .rscmdCliente.Source = Nothing
      Cargados = 1
End With

Donde estoy fallando?

Gracias!!