Visual Basic - Suprimir linea en blanco

Tengo un problema con el flexgrid, me inserta una linea en blanco.
Mando el código
Private Sub c_Grid()
Dim contador As Integer
contador = 1
If (Not RS.BOF) Then
RS.MoveFirst
Do Until RS.EOF
gridempresas.Row = contador

gridempresas.Col = 0
gridempresas.ForeColor = vbBlue
gridempresas.Text = RS!CODIGO

gridempresas.Col = 1
gridempresas.Text = RS!Nombre

gridempresas.Col = 2
gridempresas.Text = RS!FecAlt
Next
RS.MoveNext
contador = contador + 1
gridempresas.Rows = contador + 1
Loop
gridempresas.RemoveItem (Row)
End If
End Sub
Gracias

Por el comentario que haces me imagino que tu problema sucede cuando no hay registros por que cuando si hay registros en RS tu código debería funcionar salvo que la sentencia gridempresas.RemoveItem (Row) debería ser gridempresas.RemoveItem (Contador)
Si esto es así esa linea en blanco no se puede eliminar ya que cuando el flexygrid no está enlazado a datos, debe tener al menos una linea no fija y lo único que se puede hacer es:
gridempresas.RowHeight(1)=0 para que esa fila no este visible.

Gracias por la respuesta.
Ya esta solucionado