Visual Basic.NET - ayuda por favor

hola tengo un programa que tiene un flexgrid 6.0 alguien sabe como se hace para que cada vez que se llene con los campos de mi base de datos no me deje la primera fila en blanco? saludos. esto es lo que tengo yo en el programa.

Dim strcomando1 As String = "SELECT Categorias FROM Productos"
Dim micomando1 As OleDb.OleDbCommand = New OleDb.OleDbCommand(strcomando1, miconexion)
Dim query1 As OleDb.OleDbDataReader

query1 = micomando1.ExecuteReader

While query1.Read
If query1.HasRows Then
categoria = query1.Item("categoria").ToString
flexcategorias.AddItem(categoria)
End If

Gracias