man this is the hall frm code

Code:
Dim CURR_COL As Integer
Dim blnEdit As Boolean
Dim lngIndex As Long
Dim autoProd As New ADODB.Recordset
Dim Prod As New ADODB.Recordset
Dim ls As ListItem
Public calther As String
Public con As New ADODB.Connection
Public rs As New ADODB.Recordset
Dim tHt As LVHITTESTINFO
Dim lstid As String

Function dpProd()
Do While Not Prod.EOF
Set ls = lv.ListItems.Add(, , Prod!barkodi, , 1)
ls.SubItems(1) = Prod!pershkrimi
ls.SubItems(2) = Prod!sasia
ls.SubItems(3) = Prod!tvsh
ls.SubItems(4) = Prod!qmimi_shitjes
Prod.MoveNext
Loop
Set Prod = Nothing
End Function



Private Sub cmdChangePrice_Click()
Dim strConek As String
Dim curDelta As Currency
Dim rs As ADODB.Recordset
Call dbconek
If txtDeltaPrice.Text <> "" Then
    If IsNumeric(txtDeltaPrice.Text) Then
        curDelta = CCur(txtDeltaPrice.Text)
        Set rs = New ADODB.Recordset
        strConek = "SELECT qmimi_shitjes FROM tbdArtikujt"
        rs.Open strConek, dbase, adOpenStatic, adLockOptimistic
        If Not (rs.BOF And rs.EOF) Then
            Do Until rs.EOF
                rs![qmimi_shitjes] = rs![qmimi_shitjes] + (curDelta * rs![qmimi_shitjes] / 100)
                rs.Update
                rs.MoveNext
            Loop
        End If
    Else
        MsgBox "Please enter a numeric percentage value to apply to all the Prices"
    End If
Else
    MsgBox "Change Percentage cannot be blank"
End If
End Sub


Private Sub fff_Click()
If lv.ListItems.Count = 0 Then
Exit Sub
Else
If txtbar.Text = "" Then
Exit Sub
Else
Call dbconek
With ar
criteria = "Select *From tblartikujt Where barkodi ='" & txtbar & "'"
.Open criteria, strConek, adOpenStatic, adLockOptimistic
!barkodi = txtbarkodi
!pershkrimi = txtpershkrimi
!furnizuesi = lblsupp
!kategoria = lblcat
!qmimi = txtblerja
!sasia = txtsasia
!tvsh = txtvat
!qmimi_shitjes = txtshitja
.Delete
MsgBox "Artikulli u fshi me sukses.", vbInformation, "Fshirja!"
.Close
End With
lv.Refresh
End If
End If
lv.ListItems.Remove (lv.SelectedItem.Index)
End Sub

Private Sub Form_Load()
Call ListView_FullRowSelect(lv)
lv.ListItems.Clear
Call dbconek
With ar
criteria = "Select *From tblartikujt"
.Open criteria, strConek, 3, 3
Do While Not .EOF
lv.ListItems.Add , , !barkodi, 1, 1
lv.ListItems(lv.ListItems.Count).SubItems(1) = !pershkrimi
lv.ListItems(lv.ListItems.Count).SubItems(2) = !sasia
lv.ListItems(lv.ListItems.Count).SubItems(3) = !tvsh
lv.ListItems(lv.ListItems.Count).SubItems(4) = Format(!qmimi_shitjes, "###,###,##0.00")
.MoveNext
Loop
.Close
End With
con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Data\dbase.db;Persist Security Info=False;Jet OLEDB:Database Password=cc03bn01"
lv.Sorted = True
End Sub

Private Sub Form_Resize()
'lv.Height = Me.Height
'lv.Width = Me.Width
End Sub

Private Sub Form_Unload(Cancel As Integer)
con.Close
End Sub

Private Sub lv_Click()
If lv.ListItems.Count = 0 Then
Exit Sub
Else
txtbar.Text = lv.SelectedItem.Text
End If
End Sub

Private Sub lv_ColumnClick(ByVal ColumnHeader As ComctlLib.ColumnHeader)
If ColumnHeader.Index - 1 <> CURR_COL Then
lv.SortOrder = 0
Else
lv.SortOrder = Abs(lv.SortOrder - 1)
End If
lv.SortKey = ColumnHeader.Index - 1
lv.Sorted = True
CURR_COL = ColumnHeader.Index - 1
End Sub

Private Sub lv_DblClick()
Call mnundrysho_Click
End Sub

Private Sub lv_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
If Button = 2 Then PopupMenu mnumenyja
End Sub

Private Sub mnundrysho_Click()
frmAdd_List.txtbarkodi = lv.SelectedItem.Text
'===========================
Call dbconek
With ar
criteria = "Select *From tblArtikujt Where barkodi='" & frmAdd_List.txtbarkodi & "'"
.Open criteria, strConek, adOpenStatic, adLockOptimistic
If .RecordCount = 1 Then
frmAdd_List.txtpershkrimi = !pershkrimi
frmAdd_List.txtblerja = !qmimi
frmAdd_List.txtvat = !tvsh
frmAdd_List.txtsasia = !sasia
frmAdd_List.txtshitja = !qmimi_shitjes
frmAdd_List.cboCategory.Text = !kategoria
frmAdd_List.cboSupp.Text = !furnizuesi
Else
MsgBox "Shenimi nuk eshte gjetur.", vbInformation, "Gabim!"
Exit Sub
End If
.Close
End With
'======================
frmAdd_List.Caption = "Ndrysho artikullin"
frmAdd_List.txtbarkodi.Enabled = False
frmAdd_List.Show 1
End Sub

Private Sub mnunnn_Click()
frmAdd_List.txtbarkodi = lv.SelectedItem.Text
'===========================
Call dbconek
With ar
criteria = "Select *From tblArtikujt Where barkodi='" & frmAdd_List.txtbarkodi & "'"
.Open criteria, strConek, adOpenStatic, adLockOptimistic
If .RecordCount = 1 Then
frmAdd_List.txtpershkrimi = !pershkrimi
frmAdd_List.txtblerja = !qmimi
frmAdd_List.txtvat = !tvsh
frmAdd_List.txtsasia = !sasia
frmAdd_List.txtshitja = !qmimi_shitjes
frmAdd_List.cboCategory.Text = !kategoria
frmAdd_List.cboSupp.Text = !furnizuesi
Else
MsgBox "Shenimi nuk eshte gjetur.", vbInformation, "Gabim!"
Exit Sub
End If
.Close
End With
'======================
frmAdd_List.Caption = "Ndrysho artikullin"
frmAdd_List.txtbarkodi.Enabled = False
frmAdd_List.Show 1
End Sub


Private Sub mnushto_Click()
frmAdd_List.Caption = "Shto Artikull të ri"
frmAdd_List.Show 1
End Sub
' add by nawar
Private Sub mnushtt_Click()
frmAdd_List.Caption = "Shto Artikull të ri"
frmAdd_List.Show 1
End Sub


Private Sub Text1_Change()

End Sub

Private Sub txtsearch_Change()
If Prod.State = 1 Then Set Prod = Nothing
calther = "SELECT * from [tblArtikujt] where [pershkrimi] like '%" & Trim(txtsearch) & "%'"
Prod.Open calther, con, adOpenKeyset, adLockOptimistic
lv.ListItems.Clear
dpProd
End Sub

Private Sub txtsearchbar_Change()
If Prod.State = 1 Then Set Prod = Nothing
calther = "SELECT * from [tblArtikujt] where [barkodi] like '%" & Trim(txtsearchbar) & "%'"
Prod.Open calther, con, adOpenKeyset, adLockOptimistic
lv.ListItems.Clear
dpProd
End Sub