Private Sub DataGrid1_GotFocus()
  Adodc1.Refresh
End Sub
 
Private Sub Form_Activate()
  Adodc1.Refresh
End Sub
 
Private Sub Form_Initialize()
  Adodc1.Refresh
End Sub
 
Private Sub Form_Load()
  Adodc1.Refresh
End Sub
 
Private Sub Form_Resize()
  With frmMDITable
    .AutoRedraw = True
    'DataGrid1.Top = 0
    'DataGrid1.Left = 0
    DataGrid1.Width = .ScaleWidth
    DataGrid1.Height = .ScaleHeight
    .AutoRedraw = False
  End With
  Adodc1.Refresh
End Sub

Private Sub Button1_Click()
  Adodc1.Refresh
End Sub