ما هو الحل لـ Cannot bind to the new value member

السلام عليكم

عندي عنصر كومبو بوكس أقوم بتعبئته بعناصر من جدول من قاعدة بيانات أثناء فتح الفورم وأيضاً أقوم بتعبئة Checkbox list أيضاً من جدول آخر بقاعدة البيانات وكان كل شيء يعمل بدون مشاكل ولكن عندما قمت بتغيير جملة الاستعلام للكومبو بوكس من"

MyMod.Me_CboFill(Me.CboAct, "Select * From TblActivities Where Cat_ID= 38 Order By Act_Ar", "Act_Ar", "Act_ID")

إلى:

MyMod.Me_CboFill(Me.CboAct, "Select Act_ID & '.' & Act_Ar As Cat From TblActivities Where Cat_ID= 38 Order By Act_Ar", "Cat", "Act_ID")

ظهرت المشكلة وهي أنه تم تعبئة الكومبو بوكس ولكن لم تتم تعبئة الـ Checkbox list ويعطيني رسالة الخطأ:

Cannot bind to the new value member

وفيما يلي كود دالة التعبئة لل Checkbox list:

Public Sub Me_ChkFill(ByVal Chk As CheckedListBox, ByVal Sql As String, ByVal Dm As String, ByVal Vm As String)
        Chk.DataSource = Nothing
        Dim Da As New OleDbDataAdapter(Sql, Conn)
        Dim Dt As New DataTable
        Da.Fill(Dt)

        If Dt.Rows.Count = 0 Then Exit Sub

        Chk.DataSource = Dt
        Chk.DisplayMember = Dm
        Chk.ValueMember = Vm
    End Sub

وفيما يلي كود دالة التعبئة للكومبو بوكس:

Public Sub Me_CboFill(ByVal Cbo As ComboBox, ByVal Sql As String, ByVal Dm As String, ByVal Vm As String)
        Cbo.DataSource = Nothing
        Dim Da As New OleDbDataAdapter(Sql, Conn)
        Dim Dt As New DataTable
        Da.Fill(Dt)

        If Dt.Rows.Count = 0 Then Exit Sub

        Cbo.DataSource = Dt
        Cbo.DisplayMember = Dm
        Cbo.ValueMember = Vm
    End Sub

أرجو المساعدة حيث أني لم أجد أي جواب مساعد وهذه أول مرة تعترضني مشكلة من هذا النوع!