مشكلة في الداتا ريبورت

	Dim SQL As String
	Dim rs As New ADODB.Recordset

	SQL = " Select * from menu_items_trans where item_id =  '" & combo1.Text & "'"
	rs.Open SQL, Conn, adOpenStatic, adLockReadOnly

	Set datareport1.DataSource = rs

	datareport1.Show