طلب مساعدة

السلام عليكم ورحمة الله وبركاتة

عندى جدول invoice وبستعلم منه برقم الفاتورة عادى بدون مشاكل

ده الكود

rs.Close 'áÊÍÏíË ÇáÈíÇäÇÊ Ýì ÍÇáÉ ÃÖÇÝå ÈíÇäÇÊ ÌÏíÏå ÞÈá ÇáÚÑÖ

rs.Open

Dim kk As New ADODB.Recordset 'íãßä ÇáÃÓÊÛäÇÁ Úä åÐÇ ÇáãÞØÚ ÈÌãáÉ sql

kk.ActiveConnection = cn

kk.Source = "select invid as [ÑÞã ÇáÝÇÊæÑÉ],custname as [ÇÓã ÇáÚãíá],date as [ÇáÊÇÑíÎ],item as [ÇáÇÕäÇÝ],itmeprice as [ÓÚÑ ÇáæÍÏÉ],amunt as[ÇáßãíÉ],total as[ÇÌãÇáì],note as[ãáÇÍÙÇÊ] from invoice where invid like '" & Form9.Text1.Text & "%' "

''

kk.CursorType = adOpenDynamic

kk.LockType = adLockOptimistic

kk.CursorLocation = adUseClient

kk.Open

''''''''''''''''''''''''''''''''''''''''''''''''''''''''

If kk.RecordCount = 0 Then

Set DataGrid1.DataSource = Nothing

MsgBox ("ÇáÝÇÊæÑÉ ÛíÑ ãÓÌáÉ ãÓÈÞÇ")

Exit Sub

End If

Set DataGrid1.DataSource = kk

لما بيكون عندى فاتورة فيها اكتر من صنف مش بعرف اطلع اجمالى قيمة الفاتورة

رجاء الافادة