How to insert listitem in a folder in sharepoint 2010

  Using websp As SPWeb = Commonn.getWeb
                Dim List As SPList
                List = websp.Lists("yourListName")
                Dim _folder As SPFolder = List.RootFolder.SubFolders("YourFolderName")
                Dim _item as SPListItem=List.Items.Add(_folder.ServerRelativeUrl, SPFileSystemObjectType.File)
 _item("Title") = "your data as string"
  -------------------------------------------------
_item.Update()
  End Using