l'erreur c'est :"La référence d'objet n'est pas définie à une instance d'un objet"
au niveau de ligne :rw = dsProjetOUT.Tables("groupesprojets").NewRow !!!!!

voici le code :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
Dim rw As DataRow
        rw = dsProjetOUT.Tables("groupesprojets").NewRow
        rw("anneegr") = Me.txAnnee.text
        rw("numgr") = Me.txgroupeNum.text
        dsProjetOUT.Tables("groupesprojet").Rows.Add(rw)