Allora ti spiego meglio:


Prima di tutto non usare Form1 ma usa Me definisci la larghezza della griglia e l'altezza, poi si seleziona la riga '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) = 1000
 
 'Seconda Colonna 
 .Col=1
 .Text = "Tipo Società"
 .ColWidth(0) = 1000

 'Terza Colonna 
 .Col=2
 .Text = "Città"
 .ColWidth(0) = 1000

 'Quarta Colonna 
 .Col=3
 .Text = "E-Mail"
 .ColWidth(0) = 1000

 'Ti sposti su un'altra riga 
 Dim nRighe as integer
 nRighe=1
 
 Do While Not rs.EOF 
 .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

Dovrebbe essere a posto così prova pure e fammi sapere

Ciao dolce