Option ExplicitPrivate Sub Command1_Click()
    Set Me.DataGrid1.DataSource = Nothing
    
    Me.DataGrid1.Refresh
End Sub