Private Sub cmdAdd_Click()
    ' New Entry
    rdsRecordSet.AddNew
    
    ' Write to Database
    dbWrite = True
    
    txtNewCompName.SetFocus
End Sub

Private Sub cmdCancel_Click()
    Me.Hide
End Sub

Public Sub WriteData()
    rdsRecordSet("Company").Value = txtNewCompName.Text
    
    rdsRecordSet.Fields("Model").Value = txtNewModel.Text

End Sub

Public Sub LoadData()
    If rdsRecordSet.BOF = True Or rdsRecordSet.EOF = True Then
        Exit Sub
    End If
    
    
    ' Load current data for viewing
    lstCompanies.AddItem rdsRecordSet.Fields("Company").Value & " "
    lstModels.AddItem rdsRecordSet.Fields("Model").Value & " "
End Sub

Private Sub cmdSave_Click()
    ' Write data
    Call WriteData
    
    ' Update fields
    rdsRecordSet.Update
    
    ' We are done adding for now.
    dbWrite = False
    
    ' Close record set and reopen it for refreshed tables.
    rdsRecordSet.Close
    rdsRecordSet.Open
End Sub

Private Sub Form_Load()
   ' Call LoadData
    
    If Not rdsRecordSet.EOF Then rdsRecordSet.MoveFirst
    
    ' We are read database records!
    
    dbWrite = False
    
    Do While Not rdsRecordSet.EOF
        lstCompanies.AddItem rdsRecordSet!Company
        rdsRecordSet.MoveNext
    Loop
End Sub