anybody there helping me with my treeview

Here is the code for the main form.  I also have the whole project if you would like it e-mailed to you.  Now, it doesn't take into account concurrency.  Instead of using a form level variable to hold the last hotel key you would want to use a file to hold the key if it is going to be a multi-user app.  Check this out and if you want leave me your e-mail address as a comment and I will e-mail the whole project.  

Option Explicit
Private mlngLastKey As Long

Private Function TreeviewAdd(ByVal Key As Long, ByVal Name As String, ByVal Address As String, ByVal Phone As String) As Boolean

    Me.tvwHotels.Nodes.Add , , "K" & Key, Name
   
End Function
Private Function ListviewAdd(ByVal Key As Long, ByVal Name As String, ByVal Address As String, ByVal Phone As String) As Boolean

Dim oListItem As MSComctlLib.ListItem

    Set oListItem = Me.lvwHotels.ListItems.Add(, "K" & Key, Name)
    With oListItem
        .ListSubItems.Add Text:=Address
        .ListSubItems.Add Text:=Phone
    End With
   
    Set oListItem = Nothing
   
End Function
Private Function AddToFile(ByVal Key As Long, ByVal Name As String, ByVal Address As String, ByVal Phone As String) As Boolean

Dim intFileHandle As Long

    intFileHandle = FreeFile
    Open App.Path & "\Hotels.txt" For Append Access Write Lock Read Write As #intFileHandle
    Write #intFileHandle, Key, Name, Address, Phone
    Close #intFileHandle

End Function

Private Sub cmdAdd_Click()

Dim oForm As frmAdd

    Set oForm = New frmAdd
    With oForm
        .Show vbModal
        If Not .Cancelled Then
            mlngLastKey = mlngLastKey + 1
            AddToFile mlngLastKey, .txtName, .txtAddress, .txtPhone
            TreeviewAdd mlngLastKey, .txtName, .txtAddress, .txtPhone
            ListviewAdd mlngLastKey, .txtName, .txtAddress, .txtPhone
        End If
    End With
    Unload oForm
   
End Sub

Private Sub Form_Load()

Dim intFileHandle As Long
Dim lngHotelKey As Long
Dim strHotelName As String
Dim strHotelAddress As String
Dim strHotelPhone As String

On Error GoTo ErrorHandler

    mlngLastKey = 0
    Me.lvwHotels.ListItems.Clear
    Me.tvwHotels.Nodes.Clear
   
   
    intFileHandle = FreeFile
    Open App.Path & "\Hotels.txt" For Input Access Read As #intFileHandle
    While Not EOF(intFileHandle)
        Input #intFileHandle, lngHotelKey, strHotelName, strHotelAddress, strHotelPhone
        TreeviewAdd lngHotelKey, strHotelName, strHotelAddress, strHotelPhone
        ListviewAdd lngHotelKey, strHotelName, strHotelAddress, strHotelPhone
        mlngLastKey = lngHotelKey
    Wend
   
ExitSub:
    Close #intFileHandle
    Exit Sub

ErrorHandler:
    Select Case Err.Number
        Case 53
            ' File Not Found - Do nothing
        Case Else
            MsgBox Err.Number & vbTab & Err.Description, vbOKOnly + vbExclamation, "Error "
    End Select
    Resume ExitSub
   
End Sub

Private Sub tvwHotels_Click()

    Me.lvwHotels.ListItems(Me.tvwHotels.SelectedItem.Key).Selected = True
    Me.lvwHotels.SetFocus
   
End Sub


Enjoy,
mkmccreary