je sais pas si c'est pratique mais je crois que ca peux t'aider
Private Sub DataGrid1_Click()
Text4 = DataGrid1.Row
If Not Adodc1.Recordset.RecordCount = 0 Then
Text1.Text = IIf(IsNull(Adodc1.Recordset!id), "", Adodc1.Recordset!id)
Text2.Text = IIf(IsNull(Adodc1.Recordset!nom), "", Adodc1.Recordset!nom)
Text3.Text = IIf(IsNull(Adodc1.Recordset!prenom), "", Adodc1.Recordset!prenom)
Else
Text1.Text = IIf(IsNull(Adodc1.Recordset!id), "", Adodc1.Recordset!id)
Text2.Text = IIf(IsNull(Adodc1.Recordset!nom), "", Adodc1.Recordset!nom)
Text3.Text = IIf(IsNull(Adodc1.Recordset!prenom), "", Adodc1.Recordset!prenom)
End If
End Sub