مشكله فى الفلكس جريد

اخي المرفق مع المثال DataGrid ولييس فليكس جريد !!!!!!!!!!!!!!!!!!!!!!!!!!111

Private Sub MSFlexGrid1_LeaveCell()
Dim rsmor As New Recordset
Dim k As Long


	k = MSflexgrid1.Row


	If MSflexgrid1.Col = 1 Then
		If Val(MSflexgrid1.TextMatrix(k, 1)) > 0 Then
				Set rsmor = New adodb.Recordset
			   rsmor.Open "SELECT * FROM chart WHERE codem=" & Val(MSflexgrid1.TextMatrix(k, 1)) & "", con1, adOpenStatic, adLockReadOnly


			If rsmor.RecordCount > 0 Then
				rsmor.MoveFirst
				MSflexgrid1.TextMatrix(k, 2) = rsmor!Name  
				rsmor.Close
			Exit Sub
			Else
			msgbox"Please check it"
			  rsmor.Close
			Exit Sub
			End If
		End If
	End If

	End Sub

جرب الكود واضف باقى الحقول بعد كود MSflexgrid1.TextMatrix(k, 2) = rsmor!Name

MSflexgrid1.TextMatrix(k, 3) = rsmor!phone

MSflexgrid1.TextMatrix(k, 4) = rsmor!Address

اتمنى ان تكون الفكرة وصلت . . .

اخى الكريم

شكرا لمساعدتك لى وقد وصلتنى الفكره بفضل مجهودك البناء

ولكن تواجهنى بعض المشكلات

اولا لا استطيع عمل الداتا سورس للفليكس جريد لانى لم اعمل بها من قبل فقد كنت استخدم الكود التالى مع الداتا جريد

set data grid1.datasource=rs

لكن فى الفليكس جريد تظهر لى رسالة اعتراض

object variable or with flock variable not set

سوف ارسل لك المثال و ارجو التعديل فيه

مع امكانية اضافة جديد و تعديل وحذف

منتظر ردك يا اخى الكريم وشكرا لاهتمامك

dbgrid.rar