Attribute VB_Name = "modExcel"
Private db As excel.Application

Sub OpenExcel()
    On Error GoTo ErrorHandler

    Set db = New excel.Application

    db.Workbooks.Open App.Path & "\custodial.xls"
    
    Exit Sub
ErrorHandler:
    MsgBox Err.Number & ": " & Err.Description
    Resume Next
End Sub

Sub TransferData()
    On Error GoTo ErrorHandler
    With db.Worksheets("Data")
        .Range("AD2").Value = frmMain.grdNew.Columns(1).Text
    End With
    'db.SaveAs App.Path & "/custodial.xls"
    
    Exit Sub
ErrorHandler:
    MsgBox Err.Number & ": " & Err.Description
    Resume Next
End Sub

Sub CloseExcel()
    db.Workbooks.Close
    Set db = Nothing
End Sub