Visual Basic

Private Structure Items
   Dim ID as Integer
   Dim Name as String
End Structure

Dim objItem as Items 
Private Sub AddItem()
   objItem.ID = 1
   objItem.Name = "Name"
   objectlistview.AddObject(objItem)
End Sub

Private sub ChangeItem()
   objItem.Name = "MyName"
   objectlistview.RefreshObject(objItem)
End Sum

hi All

Using VB6 as front end and MS access as database i am trying to do a wild search on customer address field so my problem is i need to insert the record which has record count <=1500

Below is my code which i used only to Select and insert

Friend Class UnselectableButton
      Inherits Button
      ' The WS_EX_NOACTIVATE value for dwExStyle prevents foreground
      ' activation by the system.
      Private Const WS_EX_NOACTIVATE As Long = &H8000000L
      ''' <summary>
      ''' Set the form style to WS_EX_NOACTIVATE so that it will not get focus.
      ''' </summary>
      Protected Overrides ReadOnly Property CreateParams() As CreateParams
          <PermissionSet(SecurityAction.LinkDemand, Name:="FullTrust")>
          Get
              Dim cp As CreateParams = MyBase.CreateParams
              cp.ExStyle = cp.ExStyle Or CInt(Fix(WS_EX_NOACTIVATE))
              Return cp
          End Get
      End Property


      Public Sub New()
          MyBase.New()

          Me.SetStyle(ControlStyles.Selectable, False)
      End Sub


      Private Sub InitializeComponent()
          Me.SuspendLayout()
          '
          'UnselectableButton
          '
          Me.TabStop = False
          Me.ResumeLayout(False)

      End Sub
  End Class