With DataGrid1
.DataMember = ""
Set .DataSource = adoProject
.ReBind
.ColumnHeaders = True
End With

Franky