need help with my code

[Franky]

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

Franky