Ciao spykexx84,
mi pare che la mshflexgrid "resti incaprettata" a causa della FixedRows=1 quando è vuota (non chiedermi perchè);
prova a modificare cosi:
Private Sub CmdVuotoDaForm_Click()
Dim db_aggiorna As ADODB.Connection
Dim rs_aggiorna As ADODB.Recordset
Set db_aggiorna = New ADODB.Connection
Set rs_aggiorna = New ADODB.Recordset
db_aggiorna.CursorLocation = adUseClient
db_aggiorna.Open "Provider=Microsoft.Jet.OleDb.4.0;Data Source=" & App.Path & "\db1.mdb"
rs_aggiorna.Open "Select Dato From Tabella Where Dato = ''", db_aggiorna
'MOD
With obj_mshflexgrid
Set .DataSource = rs_aggiorna
.Rows = 1
.FixedRows = 0
End With
rs_aggiorna.Close
db_aggiorna.Close
Set db_aggiorna = Nothing
Set rs_aggiorna = Nothing
End Sub
Private Sub CmdPienoDaForm_Click()
Dim db_aggiorna As ADODB.Connection
Dim rs_aggiorna As ADODB.Recordset
Set db_aggiorna = New ADODB.Connection
Set rs_aggiorna = New ADODB.Recordset
db_aggiorna.CursorLocation = adUseClient
db_aggiorna.Open "Provider=Microsoft.Jet.OleDb.4.0;Data Source=" & App.Path & "\db1.mdb"
rs_aggiorna.Open "Select Dato From Tabella", db_aggiorna
With obj_mshflexgrid
.Rows = 2
.FixedRows = 1
Set .DataSource = rs_aggiorna
End With
rs_aggiorna.Close
db_aggiorna.Close
Set db_aggiorna = Nothing
Set rs_aggiorna = Nothing
End Sub
EDIT
anche senza questa modifica sembra funzionare impostando a designtime Rows=1 e FixedRows=0