problemi con la rivisualizzazione del datagrid

[g.scardigno]

per scivere il code si fa cosi?????

Private Sub ripristina() 
On Error GoTo RefreshErr 

Set grdDataGrid.DataSource = Nothing 
'adoPrimaryRS.Requery 
adoPrimaryRS.Close 
adoPrimaryRS.Open 
Set grdDataGrid.DataSource = adoPrimaryRS 

Exit Sub 
RefreshErr: 
MsgBox Err.Description 
End Sub

ribadisco ancora il mio problema...