Dim tt2 As String
Dim tt3 As String

tt2 = InputBox("رجاء ادخل وقت الدورة للتعرف على الطلاب المسجلين فيها", "ادخال")
tt3 = InputBox("رجاء ادخل اسم مدرس هذه الدوره", "ادخال")
Adodc1.RecordSource = " select * from ICDL_Student where time like '" & tt2 & "%' & teacher like '" & tt3 & "%' "
Adodc1.CommandType = adCmdText
Adodc1.Refresh