Public Sub lvwUpdate(strRst As String)
Dim rst As ADODB.Recordset
Dim cnn As ADODB.Connection

Set cnn = CurrentProject.Connection
Set rst = New ADODB.Recordset

Me.lvwReceiptes.ListItems.Clear
rst.Open strRst, cnn, adOpenKeyset, adLockOptimistic
If rst.RecordCount <  1  Then Exit Sub
rst.MoveFirst
Do While Not rst.EOF
    Set itmx = Me.lvwReceiptes.ListItems.Add()
    itmx.Text = rst( 0 )
    itmx.Bold = True
    itmx.SubItems( 1 ) = Nz(rst( 1 ), "")
    itmx.SubItems( 2 ) = Nz(rst( 2 ), "")
    itmx.SubItems( 3 ) = Nz(rst( 3 ), "")
    rst.MoveNext
Loop
Me.lvwReceiptes.SortKey =  0 
Me.lvwReceiptes.SortOrder =  1 
End Sub