Visual Basic - MsflexGrid

Hola foro:
alguien me puede ayudar un poco con cun codigo para insertr registros en un msflexgrid?

tengo lo siguiente, pero me da error al intentar incrementar las filas:

Dim Cliente As Integer
If rTrabajos.RecordCount > 0 Then
dbgrid1.Rows = rTrabajos.RecordCount
dbgrid1.Cols = 6
rTrabajos.MoveFirst
dbgrid1.Row = 0
Do Until rTrabajos.EOF
dbgrid1.Col = 0
dbgrid1.Text = rTrabajos!fecha
dbgrid1.Col = 1
dbgrid1.Text = rTrabajos!Cliente
Cliente = Val(dbgrid1.Text)
dbgrid1.Col = 2
dbgrid1.Text = NombreCliente(Cliente)
dbgrid1.Col = 3
dbgrid1.Text = rTrabajos!precio
dbgrid1.Col = 4
dbgrid1.Text = rTrabajos!importe
dbgrid1.Row = dbgrid1.Row + 1
rTrabajos.MoveNext
Loop
End If

Ademas: como puedo darle el tamaño que quiero a la columna que yo quiera?
Muchas gracias.

Prueba con esta rutina:
Private Sub Rellenar_Tabla()
Tabla.Clear
Tabla.Rows = 1
Tabla.FormatString = "CODIGO|DESCRIPCION"
Do While Not rs.EOF
Tabla.Rows = Tabla.Rows + 1
Tabla.Row = Tabla.Rows - 1
For c = 0 To 1
Tabla.Col = c
Select Case c
Case 0:
Tabla.ColAlignment(c) = 4
Tabla.ColWidth(c) = 1200
Tabla.Text = rs!codigo_producto
Case 1:
Tabla.ColAlignment(c) = 1
Tabla.ColWidth(c) = 7155
Tabla.Text = rs!Denominacion
End Select
Next c
rs.MoveNext
Loop
Tabla.Col = 0
Tabla.Row = 0
End Sub

el bucle 'for' es para moverte por las columnas de la tabla e ir rellenandolas, para el ancho de las columnas es 'ColWidth' y para la justificacion de las columnas 'ColAligment'.

Espero que te sirva de ayuda.

BUENO HASTA DONDE CREO ENTENDER, ME PARECE QUE DONDE DICE dbgrid1.Rows = rTrabajos.RecordCount DEBES DE AGREGARLE UN +1, ALGO ASI dbgrid1.Rows = rTrabajos.RecordCount +1, YA QUE HAY UNA FILA QUE SON PARA PONER LOS TITULOS. CUALQUIER COSA ENVIAME UN MENSAJE.

Porque no pruebas con :
SET DBGRID1.DATASOURCE=rTrabajos
y llenas toda la grid

Usa el MSHFLEXGRID para usar lo que escribi anteriormente