[hannileo]

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

فعلاً هذه المرة هذا الكود يعمل بشكل جيد عندما نسخت الكود في فورم مع ادام listview ولكن ليش مع برنامجي ولا ادري ماهو السبب حيث انها تظهر عندي رسالة خطأ 
عندما اقوم بالتشغيل  هل يوجد مشكلة بالكود التالي ؟ 
حتى لو تلاحظ كما بالصورة ان القوائم عندي لم تقلب الى اليمين 

كود :

Private Sub Text2_Change()
On Error Resume Next

If rs.State = 1 Then rs.Close


sql = "Select *From tblTransactions WHERE [TransacCode] Like '%" & Trim(Text2.Text) & _
"%' or [TransacCont] LIKE  '%" & Trim(Text2.Text) & _
"%'"


rs.Open sql, cn

If rs.RecordCount <= 0 Then
MsgBox "No Invoice found!", vbCritical + vbOKOnly, ""

Else
   
   ListView1.ListItems.clear
 
 

       
                  txtCust.Text = ""
                  txtCont.Text = ""
                  TxtDate.Text = ""
                  Text3.Text = ""
                  Text1.Text = ""
                  Text6.Text = ""
                  Text5.Text = ""
                  Text4.Text = ""
                 
   With rs
       Do While .EOF = False
         
               Set li = ListView1.ListItems.Add(, , rs!ID_item)
               li.SubItems(1) = rs!ItemDesc
               li.SubItems(2) = rs!ItemQTY
               li.SubItems(3) = Format(rs!UnitPrice, "###,###,###.00")
               li.SubItems(4) = Format(rs!Amount, "###,###,###.00")
               li.SubItems(5) = rs!TransacCust
               li.SubItems(6) = rs!TransacCont
               li.SubItems(7) = rs!DatePurchased
               li.SubItems(8) = rs!TransacCode
               li.SubItems(9) = rs!ItemProdCode
               li.SubItems(10) = rs!ItemCategory
               rs.MoveNext
               
               
   
               
       Loop
   End With
 End If
       Text3.Text = ListView1.SelectedItem.Text
       Text6.Text = ListView1.SelectedItem.SubItems(2)
       Text4.Text = ListView1.SelectedItem.SubItems(3)
       Text5.Text = ListView1.SelectedItem.SubItems(4)
       txtCust.Text = ListView1.SelectedItem.SubItems(5)
       txtCont.Text = ListView1.SelectedItem.SubItems(6)
       TxtDate.Text = ListView1.SelectedItem.SubItems(7)
       Text1.Text = ListView1.SelectedItem.SubItems(8)
       lblitems.Caption = ListView1.ListItems.Count


End Sub

كود :

Private Sub Form_Load()
Me.ListView1.View = lvwReport
 

ListView1.ColumnHeaders.Add , , "ID_item", 0, 0
ListView1.ColumnHeaders.Add , , "Product Description", 2700, 0
ListView1.ColumnHeaders.Add , , "QTY", 800, 2
ListView1.ColumnHeaders.Add , , "Unit Price", 1700, 1
ListView1.ColumnHeaders.Add , , "Amount", 1700, 1
ListView1.ColumnHeaders.Add , , "Customer Name", 0, 1
ListView1.ColumnHeaders.Add , , "Contact Number", 0, 1
ListView1.ColumnHeaders.Add , , "Date", 0, 1
ListView1.ColumnHeaders.Add , , "TransCode", 0, 1
ListView1.ColumnHeaders.Add , , "ItemProdCode", 800, 1
ListView1.ColumnHeaders.Add , , "ItemCategory", 1500, 1

SetRtL ListView1
End Sub

مع العلم ان رسالة الخطا تظهر عند السطر :

كود :

Set li = ListView1.ListItems.Add(, , rs!ID_item)

بارك الله بك استاذ  الجوكر
شكرا على المساعدة 
وجعلها في ميزان حسناتك