خطأ في كود فتح جدول

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

type mismatch

والكود هو

Private Sub Form_Load()

Dim d As Database

Dim r1 As Recordset

Set d = CurrentDb()

Set r1 = d.OpenRecordset("flag_tbl")

comb_dailytype.Value = 9

comb_dailytype = r1(0)

End Sub

حيث ان (comb_dailytype ) هي قائمة منسدله

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

ارجو الرد جزاكم الله خيرا