كيفية عمل اظهار ال ID عندما نختار Name في الكبموبكس في الداتا قريد

Private Sub DGV2_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles DGV2.GotFocus
        AccessCon.ConnectionString = ("provider=Microsoft.jet.oledb.4.0;data source =Datd.mdb")
        AccessCon.Open()
        cmd = New OleDbCommand
        cmd.CommandType = CommandType.Text

        cmd.CommandText = " SELECT * FROM  prodacts"
        cmd.Connection = AccessCon
        Dim da3 As New OleDbDataAdapter(cmd)
        cmd.Connection = AccessCon

        Dim ds3 As New DataSet
        AccessCon.Close()
        Try
            da3.Fill(ds3, "prodacts")
        Catch ex As Exception
            MsgBox(ex.ToString, MsgBoxStyle.OkOnly, "Exception")
            Exit Sub
        End Try

        pnn.DataSource = ds3.Tables("prodacts")
        pnn.DisplayMember = "productname"
        pnn.ValueMember = "productname"
        AccessCon.Close()
    End Sub

هذا الكود وعدل التسميات حسب برنامجك