Avevo fatto degli errori nell'indici della colonna

le proprietà iniziali della griglia che io ho impostato sono queste:

in General
Rows 2
Cols 4
FixedRows 1
FixedCols 0

codice:
With Me.MSFlexGrid1
'Dimensione griglia
.Width = 4000
.Height = 3000

'Seleziono la riga che rappresenterà i nomi delle colonne
.Row = 0

'Imposti la formattazione delle colonnne
'Prima colonna
.Col = 0
.Text = "Nome_Società"
.ColWidth(0) = 1500

'Seconda Colonna
.Col = 1
.Text = "Tipo_Società"
.ColWidth(1) = 500

'Terza Colonna
.Col = 2
.Text = "citta"
.ColWidth(2) = 1000

'Quarta Colonna
.Col = 3
.Text = "email"
.ColWidth(3) = 1500

'Ti sposti su un'altra riga
Dim nRighe As Integer
nRighe = 1

Do While Not rs.EOF

'Incrementa il Totale delle righe presenti nella griglia
.Rows = nRighe + 1

.Row = nRighe

.Col = 0
.Text = rs!nome_societa

.Col = 1
.Text = rs!tipo_societa

.Col = 2
.Text = rs!citta

.Col = 3
.Text = rs!email

nRighe = nRighe + 1
rs.MoveNext
Loop
End With


Ora deve funzionare per forza fammi sapere ciao dolce!