[ناجي إبراهيم]

السلام عليكم...

طبعاً سيعترض لأن dateACT هو متغير و ليس حقلاً في جدول قاعدة البيانات و لا يصح وضعه كما هو ضمن الـ String الخاص بجملة SELECT لأنه سينتقل كما هو إلى محرك قواعد البيانات و يحدث الخطأ.
أنت في الواقع تريد قيمة هذا المتغير. جملة SELECT ستكون كالتالي:

كود :

Private Sub Command1_Click()
      dateACT = "#" & Format(CDate(TextDATE.Text), "mm/dd/yyyy") & "#"
    Set RS = New ADODB.Recordset
    RS.Open "select * from TABLE1 where (" & dateACT & " BETWEEN  date1  AND  date2 )  ", db, adOpenStatic, adLockReadOnly
    
      MMSG = RS.Fields(2)
     Print "MMSG = "; MMSG
            
End Sub

نرجو الاستفادة و السلام.