Private Sub cmdsave_Click()
      Dim adoRecordset As ADODB.Recordset
     
      Dim conDataConnection As Connection
      Set conDataConnection = New Connection
      conDataConnection.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " & App.Path & _
                "\Overtime.mdb;Persist Security Info=False"
   
      Set adoRecordset = New ADODB.Recordset
      adoRecordset.Open "SELECT * FROM Overtime", conDataConnection, adOpenStatic, adLockOptimistic
      
      With adoRecordset
      .AddNew
      .Fields("EmployeeName") = ListView1.ListItems.Add("Employee Name")
      .Update
  
      End With
      
      adoRecordset.Close
      
End Sub